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FOREWORD 


This final report presents work conducted for the Marshall Space Flight 
Center (MSFC) In response to the requirements of Contract NAS8-35976. The work 
presented here was performed by REMTECH, Inc., Hunstville, Alabama and Is ti- 
tled, "Boundary Layer Simulator Improvement". 

The project manager for this project was Dr. Sarat C. PraharaJ. The pro- 
ject was very much aided by the helpful technical support of the NASA contract 
monitor, Mr. Klaus Gross, and by Mr. A. Krebsbach, both of the Systems Perfor- 
mance Branch of the Mission Analysis Division. 
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Section 1 .0 
INTRODUCTION 

The primary goal of the work reported here was to Improve the existing 

Boundary Layer Integral Matrix Procedure, Version J (BLIMPJ)*. BUMPJ has been 

used In the Industry as a rigorous boundary layer program In connection with the 

2 

existing JANNAF reference programs such as ODE and TDK . It Is capable of 
treating two-dimensional and axlsymmetrlc nozzles with a variety of wal I boun- 
dary conditions which Include regenerative and transpiration cooling as wel I as 
ablating wall materials. The Improvements described herein have potential use 
In the design of the future Orbit Transfer Vehicle (OTV) engines. 

The projected engine design for the OTV would utilize an expander cycle 
operation mode. In this mode, heat energy obtained through a regenerat I vel y 
cooled wall Is used to drive the turbines and pumps. P*”°P e 1 1 an+ system Is 

used to react In the combustion chamber at pressure levels of 1500-2000 psla at 
a mixture ratio of 6. The reaction products are expanded through a nozzle of 
large area ratio, ranging from 400 to 3000. Although the above chamber pres- 
sures and 0/F ratio for a s V' s ’*’ em are no + uncommon for the currently 

operating Space Shuttle main engines (SSMEs), the area ratio Is only of the 
order of 80. These high chamber pressure expander cycle engines depend primari- 
ly on the heat energy transmitted from the combustion products through the 
thrust chamber wall. The larger the regenerative heat transfer the higher the 
chamber pressure which In turn permits larger area ratio motors. These engines 


1. Evans, R., "Boundary Layer Integral Matrix Procedure, BLIMP-J User’s 
Manual ," Aerotherm Dlvlslon/Acurex Corporation, July 1975, under Con- 
tract NAS8-30930. 

2. Nickerson, G.R., Coats, D.E. , and Bartz, J.L., "The Two-Dimensional 
Kinetic (TDK) Reference Computer Program," Engineering and Programming 
Manual, Ultrasystems, Inc., December 1973, under Contract NAS9-12652. 
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and the associated Interior nozzle flowflelds are outside the range of current 
engineering experience. The heat transfer to the nozzle wall Is affected by 
such variables as wall roughness, relamlnarlzatlon, and the presence of parti- 
cles In the flow. The motor performance loss for these nozzles with thick boun- 
dary layers Is Inaccurate using the existing procedure coded In BLIMPJ. Flow 
expansion within large area ratio nozzles and associated low pressures and tem- 
peratures may produce two-phase flow conditions (liquid droplets or Ice crys- 
tals) adjacent to the wall especially In connection with strongly cooled walls. 
The presence of such particles will have some effect on the friction and heat 
transfer mechanism within the boundary layer. Moreover, there are discussions 
In the technical community of replacing the nozzle wall around the throat by an 
ablative wall. This would reduce high heat-transfer to the nozzle throat be- 
cause of ablation while Introducing the ablation products In the nozzle boundary 
layer and the Invlscld part of the nozzle flowfleld. All these modifications 
and Innovations require Investigations and Implementation In BLIMPJ code of the 
following simplified analytical formulations: 

• Wall surface roughness simulation and Its Impact on heat transfer and 
shear effects. 

• Prediction of relamlnarlzatlon regions with approximations on heat 
transfer and friction along the wall. 

• Presence of particles In the boundary layer and their Impact on heat 
transfer and friction. 

• Re-eval uatlon of the existing boundary layer thrust loss calculation 
method for nozzles with large area ratios, experiencing thick boundary 
layers at low density and high Mach number flow situations. 

Various versions of BLIMPJ were received from Marshall Space Flight Center 
(MSFC) . Apart from the version available at REMTECH, a total of three addition- 
al versions Including the (l) Aerotherm, (II) MSFC, and (III) mlnl-versl ons was 
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obtained. It was recommended by MSFC to use the mini-version for making modifi- 
cations to the code. The mini-version Is a cleaner and shorter version of the 
code and has fewer subroutines when compared with the Aerotherm version In Table 
1.1. In order to access the code at various subroutines for modifications, a 
macro flow diagram was prepared and Is provided In Fig. 1.1. 

The various tasks described earl ler are discussed In the following sec- 
tions. Section 2 discusses the effects of wall roughness on skin friction and 
heat transfer. Section 3 highlights the mechanism and effects of relamlnarlza- 
tlon, whereas Section 4 discusses the effects of particles on skin friction and 
heat transfer rate on the nozzle wall. Section 5, on the other hand, focuses on 
the re-eval uatlon of the existing boundary layer thrust loss calculation method 
for nozzles with large area ratios experiencing thick boundary layers. The last 
four sections described above are self-contained In that the technical discus- 
sion for each Item along with the corresponding figures and list of references 
are contained In that section. Independent of any other section. These sections 
also describe applications of the various modules In a composite fashion If more 
than one effect needs to be considered. Finally, Section 6 makes recommenda- 
tions both In the areas of analytical and experimental techniques for future 
work. 
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Section 2.0 

WALL SURFACE ROUGHNESS EFFECTS 


2.1 Background 

The Importance of wall surface roughness which Increases the resistance to 
fluid flows has been recognized for many years. One of the principal parameters 
Influencing the surface heat transfer to a rough wall Is the roughness height, 
k. 

The problem of modeling turbulent flow over rough surfaces has been divided 
Into three regimes: 

Regime I: Smooth - The roughness size Is so small that the protrusions 

are contained within the laminar sublayer. The surface skin 
friction and heat transfer are not changed from smooth surface 
val ues. 

Regime II: Transitional - Some of the roughness elements protrude outside 

of the laminar sublayer. The skin friction and heat transfer 
are Increased above the smooth surface values. 

Regime III: Fully Rough - All surface roughness elements protrude outside 

of the laminar sublayer. The Increase In skin friction Is 
primarily a result of form drag of the roughness elements. 

H. Schllchtlng (Ref. 1) summarizes all the early work on rough wall measurements 
In turbulent flow and describes the evaluation of the ’'equivalent sand grain 
roughness height”, K g , which Is based on the early work of NIkuradse (Ref. 2). 
Many theories and correl at Ions, following NIkuradse, employ the parameter « s . 
Defining K_ for a given surface condition Is not a straightforward task. 
Schllchtlng (Ref. 1) describes procedures for a given array of roughness ele- 
ments. Recently, Dlrllng (Ref. 3) has devised a correlation for K g and has ap- 
plied It to the prediction of nosetlp shape change. In modeling the effects of 
roughness on skin friction, the velocity profile through the boundary layer has 
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been correlated with surface roughness of sand. Data and empirical correlations 
have been developed for other types of roughness elements to obtain the 
equivalent sand roughness. That Is, the sand roughness which yields the same 
velocity profile Is the roughness of Interest. There Is considerable uncertain- 
ty In the determination of the equivalent sand roughness for roughness elements 
which are randomly shaped and spaced. Physical spacing, relating to the type of 
cavity flow that Is established, the Inclination of the roughness element sur- 
face to the flow direction, and the Increased surface area are some of the Im- 
portant elements In the calculation of K g . Figure 2.1 shows the correlation de- 
veloped by Dlrllng (Ref. 3). The roughness density parameter A Is defined as 
shown on the figure, where A g Is the windward surface area of the roughness, A p 
Is the projected area of the roughness In the flow direction and D Is the In- 
verse square root of the roughness elements per unit area. The correlation 
shown Is derived from velocity measurements and Is appl Icable for rough wal I 
skin friction calculations. For the analysis given here, the K g parameter Is 
not Investigated, but Instead, It Is assumed that K g Is given. 

2.2 Roughness Qpt 1 0.I1S 

The purpose of the task In this section Is to determine which simplified 
correlations are appropriate for application In the BLIMPJ computer code. The 
correlations available In the I I terature, wh Ich perform "point" calculations 
based on local edge and wall quantities, were reviewed. The significance of 
"point" calculations lies In the fact that the history effects In the boundary 
layer at other points do not affect the calculation at the point under consi- 
deration. An excellent paper by Setdman (Ref. 4) reviewed some of these corre- 
lations and compared them with Incompressible and compressible data. The ap- 
propriate options performing "point" calculations are given below: 
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Skin Friction Options 

Heat Transfer Options 

1. Prandtl-Schl Ichtlng 

2. Droblenkov 

1. Seidman 

2. Hill 


The mathematical expressions are given In Ref. 4. There are two options for 
calculating skin friction and four possible combinations that can be used to 

calculate heat transfer rate. For reasons described In the next subsection, 

\ 

HIlMs correlation was not coded In BUMPJ. As a result, only two combinations 
for heat-transfer rate calculation remained. The mathematical expressions for 
the above options were taken from Ref. 4 and are listed In Table 2.1 along with 
the Input-output variable list that Is used In the roughness subroutine. The 
expression (A.1) In Table 2.1 contain the calculation of a compresslbl I Ity fac- 
tor In terms of the enthalpy ratio. Although, In the original paper (Ref. 4) 
the corresponding temperature ratios are chosen. It Is customary to use the en- 
thalpy ratios Instead of temperature ratio In order to Include real gas effects. 
This would be appropriate for the (^-H^ reactive system to be used In the future 
OTV motor, where the combustion temperatures are In the order of 6000°R and real 
gas effects exist. 

Another option by Cebecl was selected to simulate the effects of a rough 
wall on the boundary layer and to account for "history” effects In the boundary 
layer. In Ref. 8, the turbulent mixing length of the eddy viscosity expression 
Is modified for the Inner region of a two-layer turbulence model to Include the 
effects of surface roughness. Assuming that the velocity profiles for smooth 
and rough walls are similar, the expression for the mixing length given by 

A = 0.4 y {l - exp <-y/A)} (2.1) 

Is modified and rewritten as. 
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TABLE 2.1 

ROUGH WALL HEAT TRANSFER OPTIONS 


Options 1 and 2; 




Skin friction compressibility (Young) 


c f / H e\ / H e 

— = 0.365 I— -\ + 0.635 f 

: fi 


Incompressible rough wall skin friction 
Option (1) Prandtl-Schllchtlng 

C fi = [2.87 + 1.58 log jo (X/k)] 
Option (2) Droblenkov 

C f1 = 0.0139 (X/k) 

Rough surface turbulent Stanton Number (Seidman) 

0.725 


-2.5 


-1/7 


St 


■tH© 


(Re k ) 0 * 45 (Pr) 


o.8j 


-1 


where A = 0.52 nominal and range from 0.45 to 0.7 (Owen & Thomson) 
is obtained from Equ. (A.l). 

Transition criterion (Fenter) 


PwU x k 

rii, = where 0=0, 

^w T 


l c _ fie 

^ 2 Pw 


V 

5 < < 

100 < Tl k 


5 

100 


Smooth 

Transitionally rough 
Rough 


(A.l) 

(A. 2) 
(A. 3) 

(A. 3) 
and Cf 

(A. 4) 
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TABLE 2.1 (Continued) 

INPUT VARIABLES 

X = Running length (ft) 
k * Sand roughness height (ft) 

H aw = Aidabatlc wall enthalpy (Btu/lbm) 

H e = B.L. edge enthalpy (Btu/lbm) 

H w = Wall enthalpy (Btu/lbm) 

3 

p e = B.L. edge density (Ibm/ft ) 
p w = Wall density (lbm/ft^) 
y w = Wall viscosity (lbm/ft-sec) 
u e = Edge viscosity (lbm/ft-sec) 

Pr = Prandtl number (Edge) 

ICF = Skin friction flag 1 > Prandtl -Schlichtlng 

2 > Droblenkov 

St $ = Smooth wall Stanton number 

U e = B.L. edge velocity (ft/sec) 

OUTPUT 

= Rough wall sklng friction coefficient 
St = Rough wall Stanton number 
PCT = Percent of transition to fully rough 
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i 

i 


i - 0.4 (y +Ay) Cl- exp j- (y +Ay)/A}H (2.2) 


where the coordinates are displaced by an amount Ay. He expresses Ay as a func- 
tion of an equivalent sand-grain roughness parameter K* (5K U /v), l.e., 

S ST 


y = 0.9 (v/lM |^K+ -K^ exp (- K^/6 > J 


(2.3) 


+ 

This expression Is valid for 4.535 < K < 2000, with the lower limit correspond- 
Ing to the upper bound for a hydraulically smooth surface. 


2.3 Examples 

In order to Illustrate the validity of the roughness options against meas- 
ured data, first the skln-frlctlon and heat-transfer data were collected from 
the original report by Plmenta, Moffat and Kays (Ref. 5). The two sets of data 
collected were for flat plates at moderate freestream velocities. Since BLIMPJ 
could not be run for external flow situations, BLIMPK (applicable for external 
flow) was modified to Include the roughness options 1 and 2 and was run for an 
equivalent sand roughness of K g = .002583 ft. employing the only-resident, Ken- 
dall’s turbulence model. Figure 2.2 contains the two cases for which the two 
skln-frlctlon options were used. It Is seen that the two options bracket the 
data, although Droblenkov’s approach Is closer to the data. Figure 2.3, on the 
other hand, shows the heat-transfer computations based on Seldman’s Stanton 
number correlation. Again, the two skln-frlctlon options along with Seidman’s 
heat transfer correlation bracket the heat-transfer data, although one combina- 
tion seems to predict the data better than the other one. Another Stanton 
number correlation by Hill was checked out (Fig. 2.4a), by varying the value of 
A In Hill’s correlation. It Is found that Hill’s correlation underpredicts the 
data considerably. Figure 2.4b, on the other hand, gives comparison of 
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Fig. 2.2 Comparison Of Skin-Friction Correlation With Data 
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Fig. 2.4 Comparison Between Stanton Number Correlation And Data 
With Variable Parameter A 
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Seldman’s correlation with heat-transfer data for three values of A. The nomi- 
nal value of 0.52 for A seems to predict the data quite well. 

The rationale for checking the roughness heat-transfer options against data 
In external flow Is a result of little or no data being available for nozzles 
having rough walls. Some roughness data obtained In an MSFC test on a 40-K sub- 
scale regenatlvely cooled nozzle (Ref. 6) were communicated to the authors. On 
closer examination. It was found, however, that the nozzle was rough at the 
throat region only. In other words, the equivalent sand roughness Is not con- 
stant throughout the nozzle and none of the roughness options described here ap- 
pl les to such a situation. Moreover, the concept of equivalent sand roughness 
breaks down, since similarity In the boundary layer can no longer be satisfied. 
Instead, to exercise the three roughness options In BLIMPJ, the code was modi- 
fied to Integrate all the options. In the meantime, the geometry package of a 
generic OTV nozzle was received (Ref. 7) along with the wall temperatures and 
wall pressures (given In Fig. 2.5). The code was first checked out for the OTV 
smooth wall situation using two different turbulence models Including the Ken- 
dall and Cebeci-Smlth models. The heat transfer distributions on the nozzle 
wall are given In Fig. 2.6. As noted by other Investigators, the Cebeci-Smlth 
model predicted lower heating rates. A fictitious value of the equivalent sand 
roughness of 0.00125 ft. was used to run BLIMPJ for the OTV nozzle using first 
the roughness option 3 (which used a modification to Cebeci-Smlth turbulence 
model). An example of the namelist tape for BLIMPJ using a roughness option Is 
given In Table 2.2. The heat-transfer results are plotted In Fig. 2.9 and com- 
pared with those for a smooth wall. Heat rates are approximately 3 times higher 
for the rough wall than for the smooth wall In the peak heating region occurring 
around the throat. Although the skin friction and heating rate values are quite 
high for a rough nozzle locally In the throat region, the Integrated values of 
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Fig. 2.6 Comparison Of Two Turbulence Models 


18 



1 


] 


TABLE 2.2 Example Of Namelist Input For Roughness Option 
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these quantities over the whole nozzle In relation to the smooth wall values are 
much lesser In magnitude. Since this roughness option modifies the turbulence 
model due to the presence of roughness. Fig. 2.7a was prepared to compare the 
velocity profiles between the rough and smooth wall cases at the nozzle throat. 
Figure 2.7b, on the other hand, compares the velocity profiles given In normal- 
ized y-coord!nates. It Is clearly seen from both the plots that not only the 
boundary layer Is thicker but Is pushed upward as suggested by Cebecl. This 
phenomenon has also been observed experimentally be Volslnet (Ref. 9) and Is 
reproduced In Fig. 2.7c as evidence. 

The other two roughness options were also exercised for the same OTV nozzle 
with the above equivalent sand roughness height. Since the enthalpies In the 
expression (A1) In Table 2.1 are with respect to T = 0°R as the reference, the 
concept was modified In BLIMPJ to Integrate C p with respect to T from T = 0°R to 
either the wall or the edge temperature to calculate H w or H 0 , respectively. 
Noting that C p Is calculated as a function of T In the boundary layer, an extra- 
polation was made on C to a value down to T * 0°R as shown In Fig. 2.8 for the 
OTV nozzle throat location. A numerical Integration was performed within the 
code to calculate all the required enthalpies, and consequently, to compute skin 
friction and heat transfer rates. Figures 2.9, 2.10 and 2.11 compare heat flux, 
Stanton number and skin friction coefficient distribution using all the three 
available roughness options with K g * 0.00125 ft. The comparison among the 
three options Is quite reasonable near the throat and downstream of the throat. 
However, some disparities remain In Stanton number and skin friction In the sub- 
sonic contraction section of the nozzle, part leu I ary for Options 1 and 2. 
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Fig. 2. 
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U (FT/SEC) 


K = Equivalent Sand Roughness Height 
m = Mass Transfer Rate 

Fig. 2.7c Typical Velocity Profiles Given By Volsinet (Ref. 9) 
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2.4 Discussions 

The correlations and modifications Incorporated In BLIMPJ to account for 
roughness would be very good candidates for evaluating the thermal losses on the 
OTV nozzles. The results given In Figs. 2.9-2.11 for a fictitious sand rough- 
ness show that although the comparison of q, St and C, on the OTV wal I between 

T i 

the three options Is reasonable, there Is still about 20 to 30 percent variation 
In the peak heating areas of the nozzle. It must be noted that certain en- 
gineering approximations have been Incorporated in the evaluation of H l n the 
calculation of the compresslbl Ity factor, C,/C, In Options 1 and 2. The Option 
3, on the other hand. Is a more systematic modification of the turbulence model 

to account for wall surface roughness. It not only gives the heat transfer at 

the wall, but also provides the details of the turbulence scale change effects 

within the boundary layer. The effects of wall roughness on the law-of-the-wal I 

results have been noted by others (Ref. 8) to cause a downward shift In the pro- 
files with Increased roughness. This meant that for the same value of the 
law-of-the-wal I coordinate, y + , the velocity Is lower. The same phenomenon was 
observed In the work presented earlier. One Item In the Cebecl roughness model 
(Ref. 8) Is the upper limit of 2000 for the equivalent sand-grain roughness 
parameter, K g for which the modification of the length scale Is valid. In the 
code modification, a value of 4000 was used for running the case presented ear- 
lier. The validity of this limit must be examined experimentally. Suggestions 
for future work In this area appear In Sec. 6. 
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Section 3.0 
RELAM I NAR IZATION 


3.1 Background 

The prediction of relamlnarlzatlon phenomena Is one of the strongest tests 
of validity of the turbulence models. Relamlnarlzatlon Is basically a reversion 
from turbulent to laminar boundary layer. Relamlnarlzatlon Is principally 
caused by severe flow acceleration effects that typical ly occur Internal ly In 
the convergent portion of nozzles where subsonic flow exists; In the divergent 
portion of nozzles where supersonic flow Is dominant; and externally In expand- 
ing supersonic flows around bodies such as oglve-cy I I nder and sphere-cylinder 
configurations. Some of the theoretical and experimental work Is reported In 
Refs. 1-5. Many of these works are experimental In nature. Patel and Head In 
Ref. 1 have shown experimentally that quite large departures occur from the 
universal Inner-law velocity distribution In the presence of severe favorable 
pressure gradients In turbulent boundary layers. The work of such Investigators 
as Launder In Ref. 2 has described Investigations generally similar to that re- 
ported by Patel et al. (Ref. 1), but emphasizes the measurements of turbulence 
and mean velocity profiles, and covers the complete reversal transition process. 
In the measurements of Back, Cuffel and M'assler (Ref. 3), a reduction In 
heat-transfer below values typical of a turbulent boundary layer was found when 
the values of the parameter, K = (y a /p U HdU /dx) exceeded about 2 to 3 x 10^. 
One of the best documented experimental investigations of compressible boundary 
layer relamlnarlzatlon Is that reported by Nash-Webber (Ref. 4). In this work, 
an instrumented flat plate was tested in the presence of a variety of upper-wall 
profiles. The profiles were chosen to impose various pressure gradients on the 
flat-plate turbulent boundary layer. He deduced a comprehensive criterion for 
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relamlnarlzatlon, which will be discussed In detail In the following subsection. 
It was noticed that acceleration effects tend to keep flow laminar beyond the 
normally-prescribed transition value. 

3.2 Re lam inar I zat I o n Criterion 

The various turbulence models In BLIMPJ were derived based on zero to 
moderate pressure gradients existing In the flow direction and thus, would not 
be able to predict I am I nar Izat Ion for severe favorable pressure gradients. 
However, a treatment done by Adams et al. (Ref. 5) using the IKET (Integral form 
of the Kinetic Energy of Turbulence) approach was able to predict laminar Izat Ion 
on the shoulder of a sphere-cylinder configuration tested at Moo = 9 In Tunnel F 
at AEDC. It was also pointed out by Adams that BLIMP could not predict either 
the onset of relamlnarlzatlon or the degree of rel am Inar Izatlon. 

The acceleration parameter which Is a potential candidate for relamlnarlza- 
tlon and chosen for this study Is that due to Nash-Webber (Ref. 4). According 
to Ref. 4, the acceleration parameter Is defined as, 

y w <iu 

K = — _ . — 1 (3.1) 
Pw U e dx 

Where the subscript ’w' denotes wall conditions, the subscript ’e* denotes boun- 
dary-layer edge conditions, and the barred quantities are time-averaged values. 
The Importance of this parameter Is illustrated In Ref. 4 and Is reproduced here 
In Fig. 3.1 for completeness. According to this, the numerical value of K can 
be used as an Indicator for probable occurrence of relamlnarlzatlon provided 
that the momentum thickness Reynolds number based on edge conditions Is suffi- 
ciently low. The recommended boundary value for the onset of relamlnarlzatlon 
In Fig. 3.1 seems to be somewhat lower than the threshold recommended by Launder 
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Re e>0 x 10‘ 3 


Fig. 3.1 Turbylent-Laminar Transition Boundary 
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(Ref. 2) and was curve-fitted by a quadratic polynomial given by 

K = aR 2 + bR t C (3.2) 

where a = 8.935 x 10 

b * 2.239 x 10"'" 
c = 1.0248 x 10"° 

The end of relamlnar tzatlon (complete laminar condition) Is the limit (Fig. 3.1) 
suggested by Kline (given In Ref. 4) where there Is complete suppression of tur- 
bulence production. 

Currently, BLIMPJ contains a criterion for transition where a specified or 
Input value of Re e ^Is used to trigger transition. When the prescribed Re e ^ I s 
exceeded, the turbulent transport properties are Introduced Into the calcula- 
tions. In order to simulate a transition zone, these transport properties are 
reduced by a factor varying between 0 and 1 for complete laminar and complete 
turbulent flow respectively. A linear relationship that Is used for varying 
e m (eddy viscosity) Is given by 

e m = ,(S) * e m <ref) (3,3) 

where e (ref) Is the reference value for complete by turbulent flow and 
in 

s 

I (S) = 1 .0, S + < S < 2S + 

S t 

with l(S) = 0 for S < S + 
l(S) = 1 for S > 2S + 

where S Is the running length and S + Is the running lenght up to the point of 
transition on the body. It Is suggested by Ref. 6 that a flat plate zero pres- 
sure gradient value of R fl = 360 serves as a nominal estimate. Now, In order to 
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account for flow acceleration effects, the recommended transition boundaries 
described In the previous paragraph and given In Fig. 3.1 has been coded In 
BLIMPJ. For acceleration parameters K less than 1 x 10*"®, Eq. (3.3) Is used to 
check the state of the boundary layer. However, for acceleration parameter 
greater than 1 x 10*"^, the new criterion given In Fig. 3.1 and described In the 
previous paragraph is used. In order to simulate a relamlnar Izatlon zone, the 
values of K are used Instead of S In Eq. (3.3). and at any 

Re _ corresponding to the beginning and the end of rel amlnarlzatlon have been 
coded In BLIMPJ according to the following formula: 


K - K 


e = 
m 


1 


K 2-K, 


e m < ref > 


(3.4) 


It should be observed that e m linearly varies with K from a turbulent e m (ref ) 
value to a value of zero for completely laminar flow. Incidentally, the percent 
rel amlnarlzatlon value Is 



(3.5) 


This additional logic In BLIMPJ only applies for turbulent flow. Depending on 
the value K, a value of turbulent eddy viscosity Is calculated and fed Into the 
boundary layer calculations. 


3.3 Examples 

In order to check the limits of rel amlnarlzatlon, an example of flow over 
the Shuttle clean ET configuration was considered. The aeroheating data were 

measured on a 0.0175 scale clean ET model tested at M I s 7.3 In the Ames HWT fa- 

00 

clllty. The measured data had been compared against turbulent and laminar cal- 
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cu I at Ions made by other aeroheatlng codes In Fig. 3.2. Because of tripping of 
the boundary layer due to the ET triple-cone nose, the boundary layer becomes 
turbulent over the ogive. The flow remains turbulent up to X/L = 0.2, becomes 
fully laminar at X/L = 0.25, and finally turbulent again beyond X/L =0.4. The 
acceleration parameter In Eq. (3.2) was examined after calculating the pressure 
gradient from the method-of-character 1st Ics procedure and then the acceleration 
parameter, and was plotted In Fig. 3.3 as a function of X/L. It Is evident that 
the parameter peaks at X/L = 0.2 and drops off very rapidly as X/L Is Increased. 
Another way of plotting this Information Is shown In Fig. 3.4, where K Is plot- 
ted vs. Re fl . From both the figures. It Is obvious that the peak value Is not 
higher than the threshold value of K(*1.58 x 10~ 6 ) at Re e Q = 1550. This Indi- 
cates that the acceleration parameter Is not high enough to trigger relamlnarj- 
zatlon, even though the data seem to suggest It. A similar observation was made 
by Adams (Ref. 5) for the sphere-cylinder case. Even though his IKET approach 
as well as the measured data seemed to show relamlnarlzatlon, the Nash-Webber 
correlation did not strongly suggest that. 

In order to examine the validity of this correlation for nozzle boundary 
layers, the relevant data taken on a 10° - 10° half angle conical nozzle by Back 
et al. (Ref. 3) were examined In Fig. 3.5. Wall pressures calculated by TDK 
(Ref. 7) were Input to the REMTECH version of BLIMPJ, and the heat-transfer 
(Fig. 3.5.B) along with the acceleration parameter distributions (Fig. 3.5.0 
were calculated. The acceleration parameter based on edge quantities, K , com- 
pared quite well with Back's calculations. The K peak occurlng upstream of the 
nozzle throat was not predicted by BLIMPJ because of Inadequate wall pressure 
definition In this region. The heat-transfer calculations were made by using 
the coded relamlnarlzatlon criterion. The momentum thickness Reynolds number, 
^ e e,0 distribution compared well with Back's calculations. The K w 
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vs. R q q correlation for relamlnarlzatlon [Eq. (3.2)] suggested that the turbu- 
lent boundary layer was on the verge of relamlnarlzatlon at the tangency point 
located at the Juncture of the conical and curved portions of the nozzle con- 
traction section. It Is seen from Fig. 3.5.B, however, that the prediction Is 
consistently higher than the measured data and that the boundary layer Is 
predicted to be turbulent throughout the contraction section of the nozzle, but 
not partially relamlnarlzed as evident from the measured data and as pointed out 

by Back's analysis. Back et al. point out In their paper that If K Is higher 

-6 

than 2 to 3 x 10 relamlnarlzatlon occurs. Since K satisfies this criterion 

e 

In the contraction portion of the nozzle as evident from Fig. 3.5.C, It suggests 
that relamlnarlzatlon occurs. The currently coded criterion, which Is different 
from the above criterion and Is more definite In structure. Is not able to quan- 
tify the degree of lamlnarlzatlon as well as suggested by Nash-Webber (Ref. 4). 

An example of the name list Input to turn on the relamlnarlzatlon flag Is 
given In Table 3.1 . 

3.4 Discussions 

The Nash-Webber criterion for relamlnarlzatlon worked only marginally for 
the external flow situations, whereas for the limited measured data available on 
nozzles where relamlnarlzatlon occurs In the boundary layer, this criterion 
seems to be only approximate. Without going through an extensive analysis such 
as the IKET-type model (Ref. 5), the current approach needs to be modified some- 
what for engineering calculations. In addition, relamlnarlzatlon can be 
predicted In the presence of roughness. In order to accomplish this, the rough- 
ness option 3 due to Cebect must be Input (RK = ...., ICF * 3) along with the 
relamlnarlzatlon option ( I L AM I N * 1). The occurence of relamlnarlzatlon will 
tend to reduce the turbulence length scales whereas the presence of wal I rough- 
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Fig. 3.2 1.75% Model Space Shuttle External Tank Heat-Transfer Distribution. 
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Fig. 3.4 Acceleration Parameter Vs. Re e fi for the Shuttle ET Shoulder 
Region 
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TABLE 3.1 Example Of Namelist Input For Relaminarization 
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04 
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. 1534127, 
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. 1704193, 
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04 
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.2017714. 
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04 
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04 
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. 3960694 , ; 402064 1 
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04 
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56. 
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04 
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.4762680, 

.4826573. .4890841, 

.4955500. 

.5020569. 

.5686627, 

57. 

NEW 

04 . 

.5151893, 

.5218162. 

.5285065. .5352209, 

.5419597, 

.5487456, 

.5555785, 

sa r 

NE W "* 

04 

.5624576, 

**“*5693844 . 

. 5763592 “. 5833812*.* 

.5904729. 

.5975959, 

.6647506*,* 


and so on. 
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ness will tend to Increase It. Although the code has not been exercised exten- 
sively for both being present In a nozzle. It Is believed that the code would 
handle It adequately. 
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Section 4.0 
PARTICLE EFFECTS 

4.1 Background 

The study of the boundary layer flow containing particles (In the 
f I uld-partlcl e systems) is of special Interest because of the Influence of the 
particles on the wall shear and heat transfer, the possible tendency of parti- 
cles to collect near a wall, and the problem of particle Impingement on the 
wall. Typical data (Ref. 1) In the chemical engineering literature correlated 
In terms of voldage show that there Is negligible effect caused by sol Id parti- 
cles until the volume percent of solids reaches 0.05 percent, but a very marked 
Increase occurred in heat transfer for higher solids loading. In fact, Nusselt 
number Increases by factors as high as eight have been reported for the addition 
of particles to a flowing gas (Ref. 1). Material deposited on the nozzle wall 
also represents a loss In performance, because the resulting rough surface 
causes Increased skin friction losses. 

Correlation of gas-particle heat transfer In terms of solids loading and, 
sometimes, tube diameter (for pipe flow) Is not entirely satisfactory, since 
such correlations Ignore the effect of particle size. The differences In the 
data reported by Leva (Refs. 2 and 3) suggest that the enhancement in heat 
transfer Is at least partially associated with disturbance of the laminar sub- 
layer by particles, causing a local Increase In heat transfer. On the other 
hand, reduction In heat transfer and shear stress have been reported In Ref. 4 
for large populations of the smallest particles, less than 1y, by primarily dis- 
placing the boundary layer and thereby reducing thermal gradients. 

The laminar particle-gas boundary layer has been Investigated by Marble 
(Ref. 5), Soo (Ref. 6), Tabakoff and Hamed (Ref. 7) using momentum integral 
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techniques. In all these studies, analytical expressions have been found relat- 
ing wall heat transfer and shear with particles to those without the particles. 
These Investigations have determined that the Introduction of particles leads to 
an Increase In the gas boundary layer thickness. In addition. It was found that 
the gas boundary layer characteristics are more sensitive to particle concentra- 
tion than any other particulate flow parameter. It has been shown that for’ 
gas-particle flow systems, the wall heat transfer and skin friction are related 
to non-particle flow by a non-dimensional parameter called the ’’momentum range” 
which depends on particle size, the fluid viscosity, the fluid velocity and the 
distance from the leading edge, and another quantity called the "particle momen- 
tum Interaction parameter", which depends on the ratio of particle mass density 
to fluid mass density. 

Part I cu I ate- 1 aden turbulent boundary layer flows In nozzles have not been 
understood completely and substantial empiricism must be employed to estimate 
the effects of particle concentration, particle size, density, pressure and en- 
tropy gradients on wall shear and heat transfer rate. Tien (Ref. 8) analyzed 
the Increase In heat transfer due to differences In the gas and particle tem- 
peratures In boundary layer regions, under the assumptions of Incompressible, 
constant property flow with no radiation or velocity lag effects and no effect 
of the particles on the gas flowfleld. In this case, there Is an Increase In 
heat transfer rate while the flow Is developing in the pipe. Soo and Tien 
(Ref. 9) considered particle motion In a turbulent fluid stream with emphasis on 
the effect of wall Interference. The high particle Intensity In wall regions 
Increases the heat transfer by Increasing the particle to gas heat transfer 
rates. Disruption of the gas laminar sublayer by particle motion further In- 
creases the local heat transfer. Also, If temperatures are high enough for ra- 
diation to occur, the radiation from particles to colder walls causes additional 
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heat transfer. Farbar and Morley (Ref. 10) also concluded from their experimen- 
tal work on flowing gas-sol Ids mixtures In a circular tube that the use of sol- 
ids In gaseous heat transfer systems may prove to be advantageous when an in- 
crease In the heat transfer rate Is desired without any Increase In the heat 
transfer area. It was concluded from this study that the gas-slde heat transfer 
factor Increases rapidly for solids loading ratios greater than unity. The sol- 
ids affect both the gas boundary layer and the heat capacity of the flowing mix- 
ture. On the other hand, for solids loading ratios of unity or less, a transi- 
tional region exists In which the effect is primarily one of Increased heat ca- 
pac i ty . 

4.2 Ea r . tlc J.fl Options 

The various options integrated In BLIMPJ fal I Into the following two ca- 
tegories: 


4.2.1 Laminar Boundary Laver-Part I cu I ate Flow 

The approach used in the modification of BLIMPJ to account for the presence 
of particles and their effect on wall shear and heat transfer is taken from the 
work of Marble (Ref. 10). Marble developed an expression for the shear coeffi- 
cient from an Integral momemtum solution of the laminar boundary layer equa- 
tions, particle continuity and momentum equations for an incompressible flat 
plate flow. The final expression for the case where X y /x <1 Is given In Table 
4.1. The applicable momentum range, A y , In the OTV-type nozzles would fall ba- 
sically In this category. We recognize in Eq. (B.1) of Table 4.1 C. as the 

T o 

shear coefficient for the fluid boundary layer without particles. In his origi- 
nal paper. Marble used 


45 



REMTECH IMO. 


RTR 115-1 


C f / 2 = 0.332 / Vr^ (4.1) 

Since BLIMPJ provides a shear coefficient for clean flow, that value was used as 
reference Instead to calculate the shear coefficient for the gas-particle sys- 
tem. The quantity, X y , represents a distance, x, which describes the particle 
motion relative to the fluid. For x < X y , there is a high degree of 
f 1 uld-partlcle slip, whereas for x > X y , the particles tend to take on the mo- 
tions of the gas. The heat transfer characteristics are more complex In the 
high "particle-slip” regime In that the Initial conditions become quite impor- 
tant In such a calculation. Since there Is very litter work In the literature 
for this regime, this was not coded In BLIMPJ. 

Returning our attention to the expression for shear, the factor ^ 1 + K 
multiplying the usual shear coefficient gives the result for no particle slip 
and represents a minimum value for shearing stress. The first order correction 
0.49 U v /x . K/1 + K) gives shear stress due to particle slip reduction along 
the flow path. 

Heat transfer through the boundary layer was treated In a similar manner as 
given In Eq. (B.2). 

4.2.2 Turbulent Boundary Layer-Particulate Flow 

The approach for modification of the heat transfer and skin friction calcu- 
lations In BLIMPJ for a turbulent boundary layer Is based on the analytical 
results of Tien (Ref. 8) and the empirical expressions of Farbar and Morley 
(Ref. 10). Tien solved the turbulent gas-particle energy equations for flow In 
a pipe and found that the qualitative effect of particle concentration Is to 
flatten the temperature profile and consequently to Increase the heat transfer. 
He has theoretically confirmed the test results of Farbar and Morley that 


46 



REMTECH IMC. 


RTR 115-1 


TABLE 4.1 

GAS-PARTICLE SKIN FRICTION AND HEAT TRANSFER 


Laminar Boundary Layer (Marble) 



Vl + K 


1 + 0.49 




(B.l ) 


and 



where 


K = p p /p e 



6iTap 

e 
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TABLE 4.1 (Continued) 


Turbulent Boundary Layer 


< 1 (Tien) 


C f ' C f 0 (1 + V 

q = % 0 + 3 5 ) 


where 


CpWp 

3 5 = — 

CfWf 


w n 

> 1 (Farbar and Morley) 


0.6 , n.45 

Nu = 0.14 Re D (W p /W f ) 


Nu . K, 


< T <« - V 


Particle Factor * q/q 0 


c f = r- * 

\% 0 
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TABLE 4.1 (Continued) 

Nomenclature 


m 

U, 

a 

a 



Cf 

T o 

c f 

^0 

q 


Cf 

w f 

Kg 

D 

Nu 


average particle mass, Ibm 
boundary layer edge velocity, ft/sec 
Stokes drag coefficient (= 6iry e a) 
radius of spherical particle, ft. 
gas viscesity, lbm/ft.sec 
momentum range, ft. 

Particle momentum interaction parameter 
particle mass density of the gas, lbm/ft 3 

3 

gas density, lbm/ft 

edge Reynolds number based on diameter 
running length, ft. 

O 

shear stress, lbf/ft 

friction coefficient calculated by BLIMPJ 
modified friction coefficient 

heat transfer rate calculated by BLIMPJ, Btu/ft 2 sec. 
modified heat transfer rate, Btu/ft 2 sec. 
specific heat of the solid particle, Btu/lb.degF 
mass flow of particles, lb/sec.ft 2 

specific heat at constant pressure of fluid, Btu/lb.degF 
mass flow of fluid, lb/sec.ft^ 
thermal conductivity of the gas, Btu/sec.ft°K 
diameter of the tube, ft. 

Nusselt's number 
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suspended solids, having a sol Ids-to-gas loading ratio of less than 1.0, have a 
negligible effect on heat transfer. As pointed out earlier, Tien's analysis Is 
valid for the entrance region of a pipe. Since the flow Is not fully developed 
In this region of the pipe, the boundary layers do not merge. This flow situa- 
tion Is similar to what happens In a nozzle, where the boundary layers develop 
near the nozzle wall and do not merge. Consequently, the expressions developed 
by Tien for the pipe may be applicable to a nozzle. The expressions for partl- 
cle-to-fluid loading ratio of less than 1 are given In Eq. (B.3) of Table 4.1. 

For higher particulate loading where Interactions and collisions among par- 
ticles become Important, the above expression Is no longer valid. For the case, 
where the partlcle-to-f luld loading ratio Is more than 1, the experimental 
results of Farbar and Morley (Ref. 10) have been correlated and are given In 
Eq. (B.4) of Table 4.1. This expression Is valid for a limited Reynolds number 

range of 13,500 < R < 27,000 which were the limits In the test conditions. It 

© 

has further been noted by Farbar and Morley that for loading ratios up to unity, 
the Nusselt number varies as the 0.03 power of the loading ratio, while that 
above unity varies as the 0.45 power of the loading ratio, except that for the 
lowest Reynolds number which Indicates a variation to the 0.5 power. The ex- 
pressions for Nu In Eq. (B.4) was used to calculate a particle factor which was 
then used to calculate skin friction coefficient from Eq. (B.5). The above ex- 
pressions were coded In BLIMPJ and checked with a few examples. 

4.3 EXAMPLES 

In order to Illustrate the effect of particles In the fluid boundary layer 
on skin friction and heat transfer rate, the following hypothetical example was 
chosen. Aluminum particles of 10 yradlus (density of Al - 169 lbm/ft^) and par- 
tlcles-to-f I uld loading ratio of 0.5 was chosen. Thus, 
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-5 

r s 10 in 

p g| * 169 lbm/ft 3 

C = 0.208 B+u/lbm.°F 
Pal 

An example of the namelist Input In BLIMPJ for partlcl es- 1 n-f I ow Is given 
In Table 4.2. The OTV nozzle was used for testing the effects of these parti- 
cles. The relative magnitudes of the resultant skin friction and heat flux are 
plotted In Figs. 4. 1-4. 3. Since the OTV nozzle contains both laminar and turbu- 
lent boundary layer flow regimes, both laminar and turbulent expressions for 
particles- I n-f low could be checked out simultaneously. 

4.4 Discussions 

The particle options chosen In the present work are designed to perform 
"point” calculations and are not capable of taking Into account the "history" 
effects. The particle option can either be used Independently or used along 
with one or both of the roughness and relamlnarlzatlon options. The reference 
value for the particle factor will be obtained either from the smooth wall value 
or from the relamlnarlzatlon or rough wall value and then be enhanced by the 
particle factor. It has been pointed out previously that the particle factor 
expressions for turbulent flow were derived from tube data and do not represent 
a rocket nozzle case, and In that sense are only approximate In nature. 
However, they will provide relative values of wall skin friction and heat flux 
for various particle sizes and particle loadings. Some relevant suggestions for 
future work for gas-particle flows In rocket nozzles are given In Sec. 6. 
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TABLE 4.2 Example Of Namelist Input Particle Option 


♦ELT.DUL $$ME 

ELT 8R1 S7401C 

1 . NEW 

2 1 -i 

3. 

4 1 

5. 

6. NEW 

7. NEW 

8.' NEW 

9. NEW 

10. NEW 

11. NEW 

12. NEW 

13. NEW 


1Z.0TV 

12 / 10/84 22 : 24:19 ( 3 -> 4 ) 

04 OTV ENGINE PC - 2010.. AREA RATIO * 1293.0 PARTICLE OPTION • 1 


(DAT A 
I TDK - O. 
NSP - 2. 
NEL - 2. 


NR - 0.0. FUEL - 2.0. 6*0.0. OX - 0. O. 2 . O. 5*0 O . 
NS*48. 

I PLOT* i " 

.00125. ICF«0, 


fcP-1 .1 


. CPART-0. 208 . WP* R ■ 5 . 1 PART * 1 .T 


14 . 

15. 

16. 

17. 

18. " 
19. 

' 20 ' 

21 . 

"‘22 
23. 
"'24". 

25. 

26. 

27. 
28 1 

29. 

30. 

31. 

32 1 

33. 

"34. 

35. - 

36. 

37. 

387" 

39. 

"40. 

41. 

“ 42 :™ 

43. 

441 "" 

45. 
46 1 ‘ 

47. 

"48": 

49 . 

567' 

51. 

52l 

53. 

'547" 

55. 

56. 

57. 

58. " 


NEW 

NEW 

NEW 

-6 


NEW 
NEW 
NEW 
' NEW " 
NEW 
NEW 
NEW 
"NEW " 
NEW 

-7 

NEW 

NEW 

NEW 

'new" 

NEW 

"NEW 

NEW 

NEW 

NEW 

"NEW 

NEW 

"new 

NEW 

NEW" 

NEW 

NEW 

NEW 

NEW 

NEW 

"new"" 

NEW 

"NEW 

NEW 

new" 

NEW 

NEW' 

NEW 

"new" 

NEW 
• NEW 


. E ~ 5 , RHOPA * 1 69 
T I LAM IN-O, 

YAP*- 1 1 .8231 

S»1 . , 

R TM* . 090083 3 

PCHAMB-2009 . 59 * 

GE *77. 9558. GW- - 5000 . 66 
KAT * 2HH , 2H0 , ATA 

WAT* 1 .0080. 16.0, 

TKP * -1.0, -6.08. ^ 

TW* 1445 . . 1375 . .13461,1 305 . . 1234 1 ', 890. ," 895 .’ .966. 7900 .’7103 1 7 11088 1 ,1 095 
1060- . 1030. . 1 1 14. , 1 122. . 1 100. . 1000. ,790. .690. ,740. .850. ,870. .880. .910. , 


4HHYpR . 4 H OX Y , ATB * 4H0GEN f 4HGEN ..... ATC * 2* 4H 


920. . 960. .950. .890. .880. .860. .850. .727. . 1460. . 1500. . 1460. . 1230. . 1 140- 

1520. . 1298. . 1275. . 1272. .2870- .2740. ,2590. .2540. .2430. ,2407. , 

N = 3 53. NTH * 36 , 

NP*1 ,2, 3,4,5, -9, 12,14.16,25,30.36,42,50,60,70,80.90, 100. 1 10. 120. 130, 140, 150, 


00 

01 
oo 
02 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 

" 04 
00 
OO 
04 
04 
04 
04 
04 
04 
04 

04 160.170.180,190. 200 . 2 10, 220,235, 255 .-27 5 . - 286 .287.288 . -294,295, 305 ,315, 316, 

04 -317,325.335,340.346.353, 

oo i p * i . ; : 

04 IU * o, 

04 KfURB-O. : : 

04 RETR*360.. 

04 XITAB* - 1 8.50 1 4 1 - 1 4 1 80 1 1 - 1 210261 - 9.2 5 1 1 - 6 1 47 5 1 

04 YITAB*5*2. , 

04 P I TAB- . 99931" . 996527 "1 99369 1" 799090 ,7987911 : 

04 VI TAB *52 .5,210.0, 367 .5,518.4, 682.4, 

04 XITAB ( 6 ) * -4 1629640, " 4.4884647" -4l 3 326847' - 4 l f76964",''-4'l 021124 7" - 37865 344"," 

04 -3.709563, -3.553783. -3.398003, -3.242223, -3.086443, -2.930662,-2,774882,. 

04 -2 1 6 1 9 102 7" - 2746 33 2 2 , - 2 1 307542 , ' - 2 7l 5 176 1 - 1 *1 99598 1 *-'l "34020 1 f ' 

04 -1.528641, -1.372860, -1.217080. -1.061300. -.905520, -.749739, -.593959, 

04 -7438 179. -1282 399. -7126618. ’ 

04 XITAB ( 36) - .OOOOOOO, .0026841, .0054051, .0081631, .0109557, .0137826, 

04 76 1664 40 1 1 0 195390," . 02 24674 , 762542 8 57” ’762842 1 7 , 1 03 14 47 1, 70345644 V 

04 .0375934, .0407142. .0438664, .0470496. .0502643, .0535102, .0567872, 

04 16606955 . 1 0634 3 49 7 ”"7 ‘666805 7 7670207 8 , 1 07 36 426. 1" 6771678 70866054 

04 .084 1347 f .0876959, .0912899, .0949169. .0985759, .1022678, .1059941^ 

04 11097536 7113546 1 1 1 1 73736 7""*7i2 12348 , 7 125 13 19, 71290635: .1336146 , 

04 .1370354, .1410858, .1451667. .1492819, .1534127, .1576217. .1618628. 

04 71661349 . 71764193. 71747863".* 71791886. 718359697 71886896.* 7*1926184"," 

04 .1971513, .2017714, .2064334, .2110955, .2158496, 

04 723032537 72352729. 72402253 7' “a45276T“ 

04 .2658488, .2710883, .2764313. .2817655, .2871431, 

04 1'30396 38 1 .30962 50 1 1 3 1 51968," 73208446, 13265 262 

04 


Radius of...the..particle.,..RP..= 1.E..05 

Density of the particle, RHOPA = 169 lbm/ft d 
Specific heat of the particle, CPART = . 208, Btu/lb 

Particle loading (W-/W,.) WP =...0,5. 

Particle Option, IPART t = 1 


04 

04 

04 

04 

04 


.3435913. 

"138425947 


.3492695, 
.3901933 . 


.3550602, 

.3966694."" 


. 3608782 
140266417 


. 2254662 . 
"726666471 
.2982837, 
'*733784647* 

.3666981, .3724603, .3783393. 


.2206147. 

725546137* 

.2926704, 

' 733213447* 


.4081228, .4141769. .4202372. 

.4263254, .4324444, .4385960. .4447029, . 4509437 457234 1 , .4635464, 

*74698995 , 1*4762680 74826573. 748908411 14955506, .’5620569. 7508602 7 7“ 

.5151893, .5218162, .5285065, .5352209. .5419597, .5487456, .S55S785, 

"1*5624576 1**56938 44 ,' 15763592. 1 58338 1 2 1 75904 729. 5975959 . .<kM75067 


1 


and so on. 


D 

m 

l 

H 

m 

0 

1 

z 

o 


—l 


07 

I 



cn 

co 


0. lE+0fe 


H 

£0. 1E+0E 


F 

L. 

U1000. 




^ 1 00 . 


Fig 



RTR 115-1 






] ] i i i i i i i i ] . i - l ] .1 n i : ] i 
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Fig. 4.2 Comparison Of Stanton Number Distribution Over The OTV Nozzle Wall 
For With And Without Particles In Flow 
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Fig. 4.3 Comparison Of Skin Friction Coefficient Distribution Over The OTV Nozzle Wall 
For With And Without Particles In Flow 
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Section 5.0 

THRUST LOSS RE-EVALUATION 


5.1 Background 

A thrust loss calculation method which has been previously Implemented In 
BLIMPJ code Is given In Ref. 1. The thrust loss due to the boundary layer ef- 
fects for a circular cross-section nozzle Is given at a specified cross-section 
by (for vacuum ambient conditions) 

AF = 2 ttt Cos<}> (p U^ 6-P6 r ) (5.1) 

Q 6 6 6 D 

where 

r g = Body radius at the station of Interest 
<j> = Wal 1 angle 

V 

p = Boundary layer edge density 

U = Boundary layer edge velocity 

0 = Momentum thickness 

P = Static pressure In the boundary layer 
* 

= Body displacement thickness 


The assumptions used In deriving the above expression are the following: 

(I) The boundary layer Is thin, l.e., the thickness of the boundary layer 
Is small compared to the radius of the nozzle at any cross-section. 

(II) The Invlscld values of density and velocity do not change within the 
thickness of the boundary layer. In other words. If there was no 
viscosity (l.e. for Invlscld flow), there would be no variation of the 
Invlscld values between the edge location and the nozzle wall. 

(Ill) The pressure Is constant across the boundary layer. This assumption 
Is consistent with the derivation of the usual boundary layer equa- 
tions. 


(Iv) The definitions of body displacement thickness and momentum thickness 
are given by 


* 

6 

B 


o 



dy 


(5.2) 
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and 

0 

where e and o refer to edge and wall conditions respectively. 

As the nozzles grow In area ratio, the boundary layers grow In size, and 
the above assumptions may not hold. The proposed OTV nozzles such as the one 
given In Fig. 2.5 will utilize an expander cycle operations mode In which the 
walls will be regenerate I y cooled and the heat energy will be used to drive the 
turbines and pumps. So, while the regenrat I vel y cooled walls will help In 
reducing the size of the boundary layers to some extent, the large area ratio 
nozzles will produce thick boundary layers. Consequently, depending on the 
reservoir and exit conditions, and the geometry of the nozzle. It Is possible 
and very likely that boundary layer thicknesses will vary from small to large 
values. The displacement and transverse curvature effects become Important for 
thick boundary layers and must be Included In the boundary layer calculations. 
In addition, as the flow expands In the nozzle. It will create low density and 
high Mach number flows. If the flow passes from the continuum to a 
non-continuum regime, velocity slip and temperature jump (STJ) may become Impor- 
tant. 

Similar boundary layer solutions are not applicable for such an Investiga- 
tion, since similarity cannot be satisfied for any specified set of reservoir 
conditions, nozzle geometry and wall temperature distributions. Fortunately, 
the boundary layer procedure InBLIMPJdoes not assume similarity. Furthermore, 
It takes Into account transverse curvature effects (TVC) In the derivation. It 
also calculates the displacement effects for thin boundary layers. As far as 
the STJ effects are concerned. It has been pointed out by previous Invest I ga- 
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tlons (Ref. 2) that they are generally small compared to the other effects dis- 
cussed above and thus, will be Ignored In the present approach. 


5.2 Thrust Loss Reevaluation Procedure For Thlsk Boundary Lagans 

In accordance with the above discussions, the expression for thrust loss 
for thick boundary layers has been modified. The assumptions made In deriving 
Eq. (5.2) and (5.3) are no more strictly valid. The u-component of the velocity 
In the Invlscld flow will vary to some extent between the nozzle wall to the 
edge location. Consequently, the definitions forfig and e are 


and 



(5.4) 



PU 

. Uj (y) 


1 - 


U,(y)J 


dy 


(5.5) 


The expression for the thrust loss calculation given In Eq. (5.1) will also have 
to be modified In Its derivation where the edge quantities, (p 0 , U e ) and pres- 
sure will no more be constants but would be replaced by local Invlscld values 
Pj(y), Uj (y) and P(y). However, It was decided that the whole procedure of 
thrust loss calculation will be much more simple and adapted a lot easier In the 
BLIMPJ algorithm. If the pressure Is replaced by an average value of the pres- 
sure distribution within the thickness of the boundary layer. As a result, 
averaged Invlscld edge values of velocity and density will automatically be cal- 
culated from the BLIMPJ algorithm and could be used In the thrust loss calcula- 
tion In the existing algorithm In BLIMPJ. In the above calculations, the loca- 
tion of the boundary layer edge Is not precisely known and has to be determined 

by Iterating upon the Invlscld and vtscous flowflelds. 

There are two different problems to be solved when one attempts to calcu- 
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late performance for a rocket nozzle having thick boundary layers: 

Case 1 - The potential nozzle contour Is given and the objective Is to de- 
fine the hardware wall contour and calculate the rocket nozzle performance. For 
details, see Attachment 5.1. 

Case 2 - The hardware wall contour Is given and the objective Is to define 
the potential contour and calculate the rocket nozzle performance. For details, 
see Attachment 5.2. 
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Attachment 5.1 

In the case, where the potential contour Is given, the objective Is to de- 
fine the wall contour for thick boundary layer situations. The suggested Itera- 
tion procedure Is given below: (Also see Fig. 5.1). 


(I) Run the I nv l sc Id code (TDK and RAMP) to define the distribution of pres- 
sure on the potential wall and everywhere else In the nozzle, particular- 
ly near the potential wall. 

(ID Run BLIMPJ with the gl^en pressure distribution on the potential wall. 
This cal cul ates S and 6 • Then, the body radius Is calculated from 

Rg = Rp + 6* Cos <j) 

This Is the first Iteration. 

(Ill) Calculate an average Invlscld pressure for the height between the poten- 
tial wall and the boundary layer edge, which was obtained from the previ- 
ous calcu I at Ion at each station. Use these pressures to run BLIMPJ 
again, and calculate S 9 and Then, calculate Rp. This Is the second 
Iteration. * 

(Iv) Iterations stop when convergence on 5 Is achieved within a specified ac- 
curacy. 


61 



REM 


ch i r\i o. 


RTR 115-1 


Attachment 5.2 


In the case where the hardware wall contour Is given, the objective Is to 
define the Invtscld edge for thick boundary layer situations. The suggested 
Iteration procedure Is given below: (also see Fig. 5.2) 

(I) Run the Invlscld code (TDK or RAMP) to calculate the distribution of 
pressure on the hardware wall In the nozzle. 

(ID Run BLIMPJ with the calculate^ wall pressure distribution on the hardware 
wall. This calculates 6 and 6 as a function of the nozzle axial coordi- 
nate. Then, the radius of the potential wall Is calculated from 

Rp = Rg - 6 Cos <j> 

This Is the first Itertatlon. 

(Ill) Calculate the pressures again by using the Invlscld code (TDK or RAMP) on 
the new potential wall and everywhere else In the nozzle, particularly 
near the potential wall. 

(Iv) Calculate the average pressure for the height between the boundary layer 
edge, which was obtained previously, and the hardware wall. Use the 
pressures on the hardware wall to run BLIMPJ again and calculate 6 ^ and 
<$2* Then calculate Rp. This Is the second Iteration. 

(v) G$ back to (III) and Iterate until a prescribed convergence criterion on 
6 Is achieved. If It Is found that the pressure calculations In (III) 
In the first two Iterations are very close, do not go back to (III), 
Instead go back to the beginning of (Iv). 


Once the Iterations are completed, the thrust loss will automatical ly have 
been calculated by BLIMPJ to yield the final answer. 


62 



1. The potential contour is given; 
the objective is to define the 
wall contour. 

2. Subscript refers to iteration number. 

3. <5* refers to displacement thickness. 


4. 6 refers to boundary layer thickness. 



Fig. 5.1 Suggested Iteration Procedure For Nozzles With Thick Boundary Layer (Potential 
Contour Given) 
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NOTES : 

1. The wall contour is given; the objective is to 
define the inviscid edge. 

2. Subscript refers to iteration number. 

3. 5* refers to displacement thickness. 

4. 6 refers to boundary layer thickness. 



Fig. 5.2 Suggested Iteration Procedure For Nozzle With Thick Boundary Layer (Wall Contour Given) 
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5.3 Example 

For Illustrating the procedure given above for calculating thrust loss for 
thick boundary layer situations, the OTV nozzle given earlier In Sec. 2.3 was 
used. Furthermore, since the given wall coordinates represent a gener lc^ cl ass 
of OTV nozzles, these coordinates were assumed to represent the potential wall 
contour of the OTV nozzle. Consequently, the Iterations were performed based on 
the procedure shown In Attachment 5.1. 

Since REMTECH did not have the Information to run TDK for computing and 
storing the pressures for the Interior points away from the wall, another avail- 
able code called RAMP (Ref. 3) was run for the OTV nozzle contour to compute the 
pressure fields both on the wall and near the wall. Figure 5.3 gives a compari- 
son of wall pressure distributions from TDK and RAMP on the nozzle wall. The 

£ 

comparison Is quite good. A comparison of <5 calculations based on results from 
both codes Is given In Fig. 5.4 showing a close agreement. The pressure distri- 
bution near the potential contour obtained from RAMP Is given In Fig. 5.5 along 
with 6 and <S from the first Iteration. It Is obvious that there Is a distribu- 
tion of pressure through the thickness of the boundary layer and as a result, 
the shown Invlscld edge of the boundary layer Is not accurate. Going through 
the step (III) In Attachment 5.1 yields a new average pressure distribution 
given In Fig. 5.6, which Is distinctly different from the first Iteration both 

In the high pressure region near the throat and In the low pressure region near 

* 

the exit plane. The BLIMPJ calculation yielded a 6 distribution which was com- 
pared with the original distribution In Fig. 5.7. Again, the two Iterations are 

somewhat different. A third Iteration was done when It was found that the aver- 

£ 

age pressure and 6 distributions were very close to the second Iteration 
(Figs. 5.6 and 5.7). The thrust loss In the successive Iterations Is given In 
Fig. 5.8. 
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Fig. 5.4 Comparison Between TDK And RAMP Output For The Boundary 
Layer Effective Displacement For First Iteration 
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Fig. 5.5 Inviscld Pressure Distribution At Various Wall Locations Within The Boundary Layer Thickness 
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Fig. 5.7 Iterations Of 6* Distribution For The OTV Nozzle With 
Thick Boundary Layer 
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5.4 Discussions 

The procedures described before and the example given In Subsection 5.3 are 
engineering procedures which could be used for thrust loss calculation In noz- 
zles with thick boundary layers. The calculations performed at the time were 
not all computerized and as a result, could contain some Inaccuracies In the 
various steps of the calculation. Even though the convergence was observed In 
the pressure distribution In Fig. 5.6 In the third Iteration, It was not abso- 
lutely so In the convergence of 6 In Fig. 5.7 and thrust loss In Fig. 5.8. 
However, the difference between the second and third Iteration for the thrust 
loss In the OTV nozzle Is around 10 lbs and it might be even less between the 
third and a fourth Iteration. The thrust loss for thick boundary layers has not 
been programmed, since TDK cannot presently provide the necessary data away from 

the nozzle wall. However, a number of suggestions are made In Sec. 6 for future 
work. 
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Section 6.0 
RECOMMENDATIONS 


Future work In the OTV research and development areas described In the pre- 
vious sections may be categorized Into three broad areas; 

• Analytical 

• Numerical 

• Experimental 


6.1 Analytical 

The future analytical work on OTV -cl ass nozzles, with reference to the four 
modules that have been addressed In the previous sections of this report, con- 
sists of the following recommendations: 

6.1.1 Wall Roughness Effects 

1. Roughness module In BLIMPJ needs to be checked out further with other 
available data for any size nozzle. This would enhance confidence In 
the usability of the various roughness options Incorporated In BLIMPJ. 
The modules should also be exercised with the data to be taken on the 
future OTV model or flight tests. 

2. Effects of partially smooth and partially rough nozzle wall on wall 
skin friction and heat transfer rate need to be examined. This problem 
does not lend Itself to the assumption of an equivalent sand roughness, 
because the concept of equivalent sand roughness which Is based on sim- 
ilarity assumptions breaks down. Some related developments appear In 
works by T.C. Lin, J.C. Adams, etc. 


6.1.2 Relamlnar Izatlon 

1. The relamlnar Izatlon module needs to be checked out with any other 
available data for Internal flow situations. 

2. Questions remain as to whether the rel am Inar Izatlon criterion using 
wall quantities rather than edge quantities Is valid for OTV-type noz- 
zles. What happens to this criterion when wall roughness Is present? 

3. It Is well known that freestream turbulence Is present In the Invlscld 
flow Inside the nozzle. The question, then. Is what role does the 
freestream turbulence play In the turbulence length scales and thus. In 
the rel am Inar Izatlon process? 
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6.1.3 Particle Effects 

1. Check the options In BLIMPJ with available data both In laminar and 
turbulent flows. 

2. For the case of replaceable and ablating nozzle Inserts, the particles 
or debris In boundary layer flow will enhance heat transfer at the noz- 
zle wall. If the particle loading could be determined, the effects of 
ablating nozzle wall could be determined. 

3. Modify the turbulent mixing length due to the presence of particles In' 
the flow. 


6.1.4 Thrust Loss Reevaluation 

1. Check the predicted performance with available nozzle data having large 
area ratios, and consequently, thick boundary layers. 

2. A procedure which consists of a combination of machine and hand calcu- 
lations has been given In Sec. 5 for computing final performance calcu- 
lations for large area ratio nozzles. This procedure should be consi- 
dered approximate. A special software using a flow diagram Involving 
TDK and BLIMPJ needs to be written for smooth calculation of high area 
ratio nozzles. 

3. An optimization procedure needs to be developed to design a nozzle with 
length and area ratio constraints for minimizing thrust loss In large 
area ratio nozzles. 


6.2 .Numsd.caJ. 

Computational fluid dynamics (CFD) procedures should be examined to evalu- 
ate the nozzle wall thermal losses due to relamlnarizatJon, the presence of wall 
roughness and particles In flow. Without going Into too many details, the fol- 
lowing concerns should be borne In mind: 


1. The turbulence models In the existing codes need to be examined. The 
problems of modifying the turbulence models for roughness, particles 
and relamlnarlzatlon remain. 

2. Acceptable chemistry packages have to be Integrated In the CFD codes. 

3. On the positive side, the Iteration procedure necessary for calculating 
the thrust loss for thick boundary layers Is eliminated In the CFD pro- 
cedure, since the code defines both the I nv I sc Id and viscous flowftelds 
In the nozzle at the same time. However, the thrust loss formula for 
nozzles needs to be Integrated with the CFD code. If the boundary layer 
effects need to be slngled-out. 
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6.3 Experimental 

It Is the opinion of the authors that not enough appl Icable experimental 
data Is available for the OTV-class nozzles. In order to validate the modules 
described In this report, measurements need to be made to support them. The 
parameters that need to be measured, the size of the models, the kind of flow to 
be tested and the accuracies Involved In conducting these tests are the Items, 
described In modular form In Table 6.1. This table presents a number of choices 
and possibilities from which any combinations could be selected for future ex- 
perimental programs to support the OTV nozzle development. 
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TABLE 6.1 


Recommendations For OTV Experimental Programs 


STUDY ITEMS 









ITEMS TO 


WALL ROUGHNESS EFFECTS 


RELAMINAR IZATION 


PARTICLE EFFECTS 

THICK 

BOUNDARY 

EXPLORE 




EFFECTS 



LAYER 

ISP LOSSES 

EXISTING 

t 

NO OTV NOZZLE DATA 

• 

BACK AND CUFFEL 

• 

NO OTV NOZZLE OR ANY OTHER • 

NO OTV 

THICK BOUNDARY 

DATA BASE 

• 

ROCKETDYNE 40K SUBSCALE CHAMBER TEST 


10° - 10° HALF 


NOZZLE BOUNDARY LAYER DATA 

LAYER 

DATA 

FOR NOZZLES 


AT MSFC 


ANGLE CONE DATA 

t 

THE AVAILABLE DATA BASE IS 




• 

FOR SSME, NO INTERNAL NOZZLE DATA 

t 

NASH-WEBBER VARIABLE 
NOZZLE WHICH STUDIED 
RELAMINAR IZATION 
EFFECTS 


FOR TUBES AND PIPES 



MODEL TESTS - 

• 

STEADY STATE TEST TIMES 10 MSEC - 

• 

TEST ARRANGEMENT 

• 

VERY DIFFICULT IF NOT 



SHORT DURATION 


100 MSEC 


SAME AS WITH 


IMPOSSIBLE TO INJECT KNOWN 




• 

TEST TIME DEPENDENT ON ALTITUDE 


WALL ROUGHNESS 


PARTICLES INTO FLOWS ON 





CHAMBER SIZE AND/OR DIFFUSER CAPACITY 




SHORT DURATION BASIS 




• 

USE DIFFERENT NOZZLES OR NOZZLE 
INSERTS FOR ROUGHNESS EFFECTS STUDY 







COLD, HOT OR 

• 

EXACT SIMULATION OF HOT FLOWING H-,/0, 

• 

SAME AS WITH WALL 

• 

COMBUSTION OF SOLID 



REACTIVE FLOW 


« 0/F - 6 AND P,^ - 2000 PS 1 


ROUGHNESS 


PROPELLANT - THE PROBLEM IS THE 
LACK OF CONTROL OR KNOWLEDGE OF 




• 

USE OF COLD/NON-REACTING GASES 




PARTICLE SIZE AND CONCENTRATION 



PARAMETERS TO 

• 

WALL ROUGHNESS 

• 

WALL HEAT TRANSFER 

t 

WALL HEAT TRANSFER 



BE MEASURED *' 

• 

NOZZLE WALL HEAT TRANSFER AS A 

• 

WALL TEMPERATURES 

• 

WALL TEMPERATURES 





FUNCTION OF TIME 

• 

WALL PRESSURES 

• 

WALL PRESSURES 




• 

NOZZLE WALL PRESSURES 








• 

NOZZLE WALL TEMPERATURES 








• 

EXIT VELOCITY/TEMPERATURE PROFILES 







INSTRUMENTS 

• 

FAST-RESPONSE PIEZO-ELECTRIC PRESSURE 

• 

SAME AS WITH WALL 

• 

SAME AS WITH WALL ROUGHNESS 



TO BE USED; 


TRANSDUCERS 


ROUGHNESS 





SPECI AL 

• 

THIN FILM SHORT DURATION HEAT TRANSFER 







INNOVATIVE 


GAGES 







PROBES THAT 

• 

CO-AXIAL SURFACE HEAT TRANSFER GAGES 







COULD BE USED 

• 

MINIATURE THIN WIRE/T.C. GAGES 








• 

MECHANICAL MEASUREMENTS OF WALL ROUGHNESS 







ACCURACY OF 

• 

±5$ TO ±10$ FOR TH IN-FILM AND 

• 

±5$ TO ±10$ ON 

• 

+5$ TO 10$ ON HEAT TRANSFER 



MEASUREMENTS 


CO-AXIAL GAGES 


HEAT TRANSFER 

• 

±0.5$ ON TEMPERATURE 




• 

±0.5$ ON TEMPERATURE 

• 

±0.5$ ON TEMPERATURE 

• 

±2$ ON PRESSURE 




• 

±2$ ON PRESSURE 

• 

±2$ ON PRESSURE 





MODEL SCALE 

• 

CHEMISTRY, THERMODYNAMICS AND TRANSPORT 

• 

SAME AS WITH WALL 

• 

PARTICLE SIZE AND 



PROBLEMS, 


PROPERTIES ARE REALISTIC IN NOZZLE 


ROUGHNESS 


CONCENTRATIONS VERY DIFFICULT 



IF ANY 

• 

SMALL THROAT AREAS AND IMPERFECTIONS MAY 
OBSCURE EFFECTS BEING SOUGHT 




TO SCALE FOR SMALL TEST RIG 



FACILITIES 

• 

IMPULSE BASE FLOW FACILITY (IBFF) AT MSFC 

• 

SAME AS FOR WALL 

• 

SAME FACILITIES AS FOR 



TO BE USED 

• 

PLUMBROOK SPACE POWER FACILITY AT NASA LEWIS 


ROUGHNESS EFFECTS 


WALL ROUGHNESS STUDIES 




• 

CHAMBER A AT JOHNSON SPACE CENTER 








• 

LUDWIG TUBE AT CALSPAN, BUFFALO 
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TABLE 6.1 (Continued) 


STUDY ITEMS 
ITEMS TO 

explore 


WALL ROUGHNESS EFFECTS 


RELAM 1 NAR IZATION 
EFFECTS 


PARTICLE EFFECTS 


THICK BOUNDARY 
LAYER ISP LOSSES 

MODEL TESTS - 

• 

DEPENDING ON MODEL SIZE AND TEST DURATION, 

• 

SAME AS FOR WALL 

• 

LONG DURATION ALLOWS FOR 

• 

LARGE OTV MODELS SHOULD 

LONG DURATION 


COSTS CAN BE A FACTOR OF 10 LARGER THAN 


ROUGHNESS EFFECTS 


POSSIBLE UTILIZATION OF 


BE USED 



SHORT DURATION 




PARTICLE INJECTION TECHNIQUES 

• 

CAN MAKE BETTER THRUST 


• 

ALLOWS MORE THAN ONE MEASUREMENT PER RUN 




IN COLD/WARM GAS FLOW 


MEASUREMENTS THAN SHORT 


• 

SCALE PROBLEMS ARE ALLEVIATED 



• 

REACTIVE FLOWS STILL HAVE UNKNOWN 


DURATION TEST 


• 

HIGH ALTITUDE SIMULATION REQUIRES VERY 




PARTICLE SIZE/CONCENTRATION 

• 

BOUNDARY LAYER PROBING 



LARGE FACILITY 






IS POSSIBLE 

COLD, HOT OR 

• 

COLD/WARM FLOWS SIMPLEST AND LEAST COSTLY 

• 

SAME AS FOR WALL 

• 

COLD, HOT OR REACTIVE FLOW 

t 

HOT/REACTIVE FLOWS 

REACTIVE FLOW 

• 

HOT OR REACTIVE FLOWS REQUIRE COMPLEX 


ROUGHNESS EFFECTS 


SIMULATION IS NOW COMPLICATED 


SIMULATING H-/0- SYSTEM 



FACILITY AND MODEL COOLING 




BY THE NEED FOR PARTICLES 


ARE PREFERABLE 






t 

PARTICLE INJECTION SCHEME CAN 









BE UNRELIABLE 



PARAMETERS 

• 

WALL ROUGHNESS 

• 

SAME AS FOR WALL 

• 

PARTICLE DENSITY AND SIZE 

• 

THRUST MEASUREMENT 

TO BE 

• 

WALL PRESSURE AND TEMPERATURE MEASUREMENTS 


ROUGHNESS EFFECTS 

• 

NOZZLE PROBES TO MEASURE 

• 

BOUNDARY LAYER PRESSURE AND 

MEASURED 

t 

EXIT VELOCITY/TEMPERATURE PROFILES 




PRESSURE AND TEMPERATURE 


TEMPERATURE MEASUREMENTS, 


• 

WALL HEAT TRANSFER RATE 



• 

WALL PRESSURE AND TEMPERATURE 


BOTH INSIDE AND AT EXIT 


t 

PROBE THE BOUNDARY LAYER INSIDE NOZZLE 




MEASUREMENTS 


PLANE OF NOZZLE 

INSTRUMENTS 

• 

THERMOCOUPLES FOR TEMPERATURE 

• 

SAME AS FOR WALL 

• 

LDV VERY ADAPTABLE TO PARTICLE 

i 

THRUST/STRAIN GAGE 

AND PROBES 

• 

PRESSURE TANSDUCERS 


ROUGHNESS EFFECTS 


FLOWS 


- MEASUREMENTS FOR ISP 

TO BE USED 

• 

LASER DOPPLER VELOCl METER (PARTICLES) 



• 

PARTICLE MEASUREMENT TECHNIQUES 


DETERMINATION 


t 

FOR HOT/REACTIVE FLOW MEASUREMENTS, 




ARE GENERALLY UNRELIABLE EXCEPT 

• 

INTRUSIVE TECHNIQUES 



SYSTEMS/PROBES REQUIRE SPECIAL PROTECTION 




IN SPECIAL FLOW SITUATIONS 


SUCH AS HOT-WIRE 


t 

OPTICAL SCHLIEREN AT EXIT PLANE 






ANENOMETERS AND PRESSURE 


• 

PHASE CHANGE PAINT 






PROBES 








§ 

NON-INTRUSIVE TECHNIQUE 









SUCH AS LDV 

ACCURACY OF 

• 

SAME AS FOR SHORT DURATION 

• 

SAME AS FOR SHORT 

t 

SAME AS FOR SHORT DURATION 

• 

SAME AS FOR SHORT DURATION 

MEASUREMENTS 

• 

LDV ±15* DUE TO PARTICLE LAG 


DURATION 

• 

LDV ±15* DUE TO PARTICLE LAG 

• 

HOT WIRE ±15* 






• 

PARTICLE - UNKNOWN 



MODEL SCALE 

• 

SCALE PROBLEMS ARE ALLEVIATED TO SOME 

• 

SCALE PROBLEMS 

t 

SCALE PROBLEMS ARE ALLEVIATED IF 

• 

SCALE PROBLEMS ARE 

PROBLEMS, 


EXTENT ASSUMING THAT MODELS ARE LARGER ON 


ARE ALLEVIATED IF 


MODEL SIZES ARE INCREASED 


ALLEVIATED IF MODEL 

IF ANY 


LONG DURATION 


MODEL SIZES ARE 




SIZES ARE INCREASED 


• 

THROAT MUST BE PROTECTED AGAINST HIGH q 


INCREASED 







RESULTING IN WALL TEMPERATURE 









DISCONTINUITY WHERE MATERIALS CHANGE 







FACILITIES 

t 

ENGINE TEST FACILITY AT AEDC CAN 

• 

SAME FACILITIES AS 

t 

SAME FACILITIES AS FOR WALL 

• 

SAME FACILITIES AS FOR 

TO BE USED 


SIMULATE ALTITUDE 


FOR WALL ROUGHNESS 


ROUGHNESS STUDIES 


WALL ROUGHNESS STUDIES 


• 

ENGINE TEST FACILITY AT MSFC HAS NO 


STUDIES 







ALTITUDE SIMULATION 








• 

LEWIS TEST FACILITY ALTITUDE 









SIMULATION NOT KNOWN 
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APPENDIX 

A LISTING OF THE UPDATED SUBROUTINES 
IN BLIMPJ 


A-l 



I . 

I 

1 

J 

! 


i 

1 

n 


1 1 

W 



1 

1 ‘ 

1 

n 

1 

l 1 

0001 


000565 

41 1G 

0001 


001023 

42L 

OOOI 


001042 

447G 

OOOI 


001057 

452G 

OOOI 


001072 

464G 


0001 


OOl 107 

500G 

0001 


001124 

513G 

OOOl 


001131 

520G 

OOOI 


001172 

533G 

0001 


001246 

65L 


0001 


001252 

70L 

0006 

I 

OOOOOO 

ADARY 

0005 

I 

OOOOOO 

CASE 

0005 


000015 

CBAR 

0004 


OOOOOO 

DUB 


0006 

I 

000026 

ESPER 

0006 

I 

000027 

FLDP 

0007 

I 

OOOOOO 

FLDX 

0006 

I 

0003 1 3 

FLDY 

OOOO 

I 

OOOOOO 

I 


0006 

I 

001077 

IAXIS 

OOOO 

I 

000003 

IERR 

0006 

I 

001 100 

INJ 

OOOO 


000071 

INJP$ 

0006 

I 

001 101 

INKI 


0003 


OOOOOO 

IPLOT 

0007 

I 

000030 

IPP 

0005 

I 

000020 

IS 

0005 


000021 

ISH 

0003 

I 

OOOOOI 

IUNIT 


0006 

I 

OOl 102 

I WALL 

OOOO 

I 

OOOOOI 

IX 

0006 

I 

OOl 103 

J 

0006 

I 

OOl 104 

K 

0006 

I 

OOl 105 

KELVIN 


0006 

I 

OOl 106 

KGDE 

0006 

I 

OOl 107 

L 

0006 

I 

026161 

LA 

0006 

I 

OOl 1 IO 

LANK 

0006 

I 

026162 

LB 


0006 

I 

026163 

LC 

0006 

I 

001 1 1 1 

LOGRAM 

0006 

I 

OOl 1 12 

LWXO 

0006 

I 

001126 

LWYO 

0006 

I 

001 142 

LXIN 


0006 

I 

OOl 156 

LXI V 

0006 

I 

OOl 172 

LYIN 

0006 

I 

001206 

LYIV 

0006 

I 

026164 

M 

0006 

I 

001222 

METER 


0007 

I 

000031 

MS 

0004 

I 

000006 

N 

0005 

I 

0001 14 

NETA 

0006 

I 

001223 

NJOUL 

0005 


OOOI 15 

NNLEQ 


0006 

I 

026165 

NOGRID 

0007 

I 

000032 

NPCON 

0007 

I 

000033 

NPLOT 

0005 

I 

000120 

NS 

0007 

I 

000072 

NSTAT 


0007 

I 

000154 

NSTP 

OOOO 

I 

000002 

NUMBR 

0006 

I 

001224 

OULES 

0006 

R 

020266 

Q 

0006 

R 

023222 

R 


0006 

R 

026156 

RCIRC 

0006 

R 

026157 

RSQAR 

0006 

R 

026160 

RSTAR 

0006 

I 

001225 

S 

0006 

I 

001226 

SECON 


0006 

I 

001227 

SPER 

0006 

I 

001230 

SQUARE 

0006 

R 

001231 

U 

0006 

R 

004165 

V 

0006 

R 

007121 

W 


0006 

I 

012055 

WATTS 

0006 

R 

012056 

X 

0006 

R 

012224 

XL 

0006 

R 

012222 

XMAX 

0006 

R 

012223 

XMIN 


0006 

R 

012225 

XR 

0006 

R 

012226 

Y 

0006 

R 

015244 

YB 

0006 

R 

015245 

YMAX 

0006 


015246 

YMIN 


0006 

R 

015247 

YT 

0006 

R 

015250 

Z 

0006 

I 

020204 

ZS 











00101 
66i6i* 
00101 
66 1 6*1* 
00101 
obi of 
ooioi 
66161* 
00101 
66161” 
00101 
ooioi*’' 
00101 
ooioi** 
00101 
ooioi* 
00101 
ooioi* 
00101 
ooioi** 
00101 
ooioi* 

00103 

66164" 

00105 
66166"* 

00106 
66166** 
00106 
66166" 
00106 
66167* 

00107 

66116 

00110 

661*1 T* 

00111 

ooiii* 


1* 

2*' 

3* 

4* 

5* 

6* 

7* 

8* 

9* 

"ib* 

11* 

'l2* 

13* 

”14* 

15* 

16* 

17* 

18* 

19* 

20 ** 

21 * 

* 22 *" 

23* 

*24*” 

25* 

26*" 

27* 

28*“ 

29* 

"36*" 

31* 

32* 

33* 

34* 

35* 

36*' 

37* 

38* 


SUBROUTINE PLOT 


000000 

666606 

OOOOOO 

666666 

OOOOOO 

066666” 

OOOOOO 

666666 * 

OOOOOO 

666600* 

OOOOOO 

666666 

OOOOOO 

606666 

OOOOOO 

666666 " 

OOOOOO 

666666 * 

OOOOOO 

666666 * 

OOOOOO 

666666 * 

OOOOOO 

666666 

OOOOOO 

new 666666” 

-01000000 

666666* 

OOOOOO 

NEWOOOOOO 

-01000000 

NEWOOOOOO 

-01000000 

666666 

OOOOOO 

666666 

OOOOOO 

666666 


c 

c 

c 

c 

c 

c 

c 

c 

c* 

c 

c 

c 

c* 

c 

"c* 

c 

c 

c 

c" 

c 

c* 


BLIMP PLOT SUBROUTINE FOR PLOTTING BLIMP DATA STORED ON DRUM 

OR D E R OF P AR AME T ERST O BE PLOTTED: IP RE S SURE , 2 EDGE TEMP E R AT UR E , 

3 VELOCITY , 4 MACH NUMBER, 5 DENSITY, 6 TOTAL ENTHALPY, 7 TOTAL HEAT, 

**8 ** TO "i A L*"" W ALL ***AR E A *,"*** 9* "“MOMENTUM * *TH*IC*k*N*^^ 0***D*i SP L A*C E M E* NT " " TH'lCKN E* S S *, 

11 THRUST LOSS, 12 WALL TEMPERATURE, 13 SHEAR AT WALL, 

"*14 " A CCE L E R AT i*6*N**P ARAM E TER *,* 1 5 *" V*i* SCO S I T Y V 1 6 $p E C I*FTC*"H*E AT , 

17 THERMAL CONDUCTIVITY. 18 WALL LENGTH, 19 CONDUCTIVE HEAT FLUX, 

’ ’26*" *i* N VI S *i*D * * M A S S*** F LO Wi" 2i ** TOf A L “'MASS* * F L*b*W*i ' 2 2 "* b E T AP*",**" 2 3 B E T A V 
24 MOMENTUM TRANSFER COEFFICIENT, 25 HEAT TRANSFER COEFFICIENT, 

26 X I , 2 7 TOTAL GAS FLUX, 28 TOT A L GAS B LOW ING P A R AME T E R 

ORDER OF PROFILE PLOTS; 1 TEMPERATURE, 2 VELOCITY RATIO. 3 MACH NUMBER. 

4 D E N S I T Y , 5 VI S CO SI T Y , 6 S P EC I F IC HEAT, 7 S T AT ICE NT HA L P Y , 

8 TOTAL ENTHALPY, 9 THERMAL CONDUCTIVITY, 10 EPSA ( RHOSQ*EPS/RHO/MU ) , 

if SHEAR 7 1 2 E TA T E PR E S SU R E 

NOTE FOR PLOTTING PURPOSES THE FOLLOWING VALUES OF IP AND THEIR 

COR R E S POND I NG CH A R AC T E R S A R E 6 1 V 35 * ( P LOTT I NG DOT ) 7 4 3 = ( SMALL 

CIRCLE). 34 * +, 5 = (BLANK), 40 = * , 20 = 0, 48 = O, 39 = $, 23 = 0. 

6 2 = ( S M A L L SOU A R E ) 7 'g i ‘ ■ '"( p E R*i 66 ), 46 = , ( COMM A) ,3 3 = - ,58 = ' , 

36 = =, 3 AND 4 GIVE SMALL CIRCULAR SYMBOLS. 


COMMON /AL/ IPLOT , IUNIT 

COMMON '/CARDS/ DUB (6) ,N 

COMMON /INTCOM/ CASE( 13) ,CBAR(3) , IS, ISH(59) , NETA , NNLEO( 3 ) ,NS 
COMMON 7 NONCOM/ ADA R Y ( 22 ) , E S P E R * F LDP ( 1 2 * i5 ) * F LD Y ( 1273 i ) i I A XI S , I* N J 

1 INK I , I WALL , U , K , KELVIN , KGDE , L , LANK , LOGR AM , LWXO (12). LWYO (12), 

2 LXI N ( i 2 j , L X iV (1 2 ) , LY I N(12 )7 L YI V (1 2 ) i MET E R , N JOUL , OUL E S , S SE C ON , 

3 SPER , SQUARE ,U( 1500) ,V( 1500) ,W( 1500) , WATTS , X( IOO) , XMAX , XMIN , XL , 

4 X R , Y ( 50V3 1 ) , Y B ” Y MAX * Y M I N , Y f , Zf 1 500 ) , 2 S ( 50 ) , 6 ( i 500 ) i R ( 1 500 ) 

5 .RCIRC.RSOAR.RSTAR, LA, LB, LC.M, NOGRID 

COMMON / P L 6 T S/ F L D X ( i 2 , 2 ) ", I P P , M S” NP C ON , NP L OT ( 3 f ) fNST AT ( 5*6*) , NS T P ( 1 5 


/AL/ 

/cards/ 

/INTCOM/ 

,/n 6 nc 6 m/ 

/NONCOM/ 
/NONCOM/ 
/NONCOM/ 
/NONCOM/ 
/NONCOM/ 
f* /PLOTS/ 


INTEGER ADARY , CASE , ESPER , FLDP , F LDX , FLOY , OULES , S , SECON, SPER , SQUARE , 

1 WATTS, ZS 

DATA ADA R Y / 2 2 * 6H */ ^ZS/iHi^ "riH2".‘*1H3riH4V ANK 3/83 

1 1H5 , 1H6 , 1H7, 1H8, 1H9 , 2H10. 2H 1 1 , 2H12 , 2H13 , 2H14 , 2H15 , 2H1.6 , 2H17 , 2H18 , 

2 2H19 , 2H20, 2H2i , 2H22 i 2H23 *,* 2H24^ 7 2H25 , 2H26,2H27 " , 2H31 *.* 



00111 39* 

00111 40* 

00111 41* 

00111 42* 

00111 43* 

ooi'Ti 44* 

00111 45* 

OOiTi 46* 

00111 47* 

66 * 1*11 48* 

00111 49* 

66*1*11 50* 

0O111 51* 

OOiTi 52* 

OOIII 53* 

66*142 54* 

00142 55* 

66*142 56 * 

00142 57* 

00142 58* 

00142 59* 

66142 60 * 

00142 61* 

66*142 62* 

00142 63* 

66142 64 * 

00142 65* 

66142 * 66 * 

00142 67* 

66*142 68 * 

00142 69* 

66*142 70 * 

00142 71* 

00142 72* 

00144 73* 

66*144 74 * 

00144 75* 

66144 76 *' 

00144 77* 

66*144 78* 

00144 79* 

66144 80 * 

00144 81* 

66 * 144 *' 82 * 

00144 83* 

00144 84* 

00146 85* 

66146 86 * 

00146 87* 

66*150 88 * 

00150 89* 

00150 90* 

00150 91* 

66150 92* 

00150 93* 

00150 94* 

00150 95* 

66150 96* 

00150 97* 

66150 98* 


3 2H32 , 2H33 , 2H34 . 2H35 , 2H36 . 2H37 , 2H38 , 2H39 , 2H40 . 2H4 1 , 2H42 , 2H43 , 2H44 , 

& 2H45 , 2H46 , 2H47 , 2H48 . 2H49 , 2H50/ , SPER/6HS PER /, 

4 KELVIN/6HKELVIN/, INKI/6H IN KI/ , L0GRAM/6HL0GRAM/ , METER/6HMETER /, 

5 W A T T S / 6 H W A T T S / / , SOU A RE / 6 H SOU ARE / V S / 6 H S /“LANK/6H /, 

6 SEC0N/6H SECON/ t NJOUL/ 6HN JOUL/ , ESPER/6HES PER/.KGDE/6H KG DE/ # 

7 1 N J/ 6HE I N J/ , OU L E S / 6 HOULES /"/*,* F LDX/ ' NORMA LI ZED A X I A L D I sTTNC E X/R 

8STAR FROM BLIMP ',4*6H , 'DISTANCE FROM WALL TO BOUNDARY LA 

9YER EDGE IN INCHES ' " AT * "STATION*** 1 '/XxiW'NO^ 

AXIAL DISTANCE X/RSTAR IN BLIMP ',3*6H /, LY IN/ ' NORMALIZED 

B INPUT NO Z Z LE CONTOUR W A L L RAD I US R/ R ST A R ; ,3*6H /” 

C LWXO/ 'ADJUSTED NORMALIZED AXIAL DISTANCE X/RSTAR FOR NEW WALL CON 

"Stour ' /”lwy 6/ ' ad ju st e d norm a Liz ed no zzl e wa l l contou rradi 

EUS R/RSTAR' f 3*6H /, LXIV/ ' ADJUSTED NORMALIZED AXIAL DISTANCE X 

F / R ST AR FOR NEW I NV I SC 1 0 CONTOUR ; / , L Y I V/ 'ADJUSTED ‘NORMAL *1 ZED * **1 

GNVISCID NOZZLE CONTOUR RADIUS R/RSTAR # ,2*6H / 

DATA ( ( F LDY ( I J) .1=1,1 2) J=1 t 17) / ' PR E SSU RE ATTHEEDGEOF THEBOUN 

ADARY LAYER IN POUNDS PER SQUARE INCH TEMPERATURE AT THE EDGE 

B OF THE BOUNDARY LAYER IN DEGREES RANK I NE 1 '*' VELOCITY AT* T 

CHE EDGE OF THE BOUNDARY LAYER IN FEET PER SECOND 

S ' M A C H NUMB E R AT THE EDGE 6 F THE B 6 UND A R Y LA Y E R ' , 4*6H V 

E 'DENSITY AT THE EDGE OF THE BOUNDARY LAYER IN POUNDS PER CUBIC 

F FOOT ', 'TOTAL E NT HA L P Y F R OM THE BOUND ARY LAYER TO THE W A L LIN B 

GTU PER SEC FT **2 ', 'TOTAL HEAT FROM THE BOUNDARY LAYER TO THE WAL 

HL In BTU PER second: '”* 'TOTAL' “WALL AREA IN SQUARE FEET 

I ', 6*6H , 'BOUNDARY LAYER MOMENTUM THICKNESS THETA IN F 

JEET '7 ’3*6H , * ' BOUNDARY LAYER EFFE D I SP LAC EM ENT 

KTHICKNESS IN FEET ', 'BOUNDARY LAYE* THRUST LOSS IN POUND 

LS ' 6*6H ", 'NOZZLE ^ WALL“'fEMPERAfURE*‘ DEGREES*" ''RANKINE** ' 

M , 4*6H , 'BOUNDARY LAYER SHEAR ALONG THE NOZZLE WALL IN PO 

NUNDS PE R SQUARE FDD T ' ” ' BOUND A R Y*** LA Y ER * * ACC E LERA T 1 0 N P A R AME T E R MU 

OLTIPLIED BY ONE MILLION ', 'VISCOSITY AT THE BOUNDARY LAYE 

PR EDGE IN POUND S PER F 00 T S ECO ND y;*" V5pECXFi'C^ ^HE AT AT THE 

Q BOUNDARY LAYER EDGE IN BTU PER POUND DEGREE RANKINE', 'THERMAL CO 

R NDU C T I V I T Y A T T H E B 0 U ND A R Y L A Y E R E DG E I N BT U /FT S E CO ND D E G . R >' j 

DATA ((FLDY(I,J),I=1, 12), J= 18 , 28 )/ 'NOZZLE WALL LENGTH IN FEET ' 

'a‘'T’"7*6H , ' HEAT CONDUCT E D F R OM T H ^ L/W E R *’ TO 

B IN BTU PER SEC FT**2 ', 'BOUNDARY LAYER INVISCID MASS FLOW IN PO 

CUNDS PER SECOND ' , 2*6H *,’**"' BOUNDARY LAYER TOTAL MASS FLOW 

D IN POUNDS PER SECOND', 3*6H , 'STREAMWISE PRESSURE GRADIE 

ENT P ARAMETE R BE T AP y f 4*6H ” Vijy p jr ^ ^ j ^ oq j f y GR ADI E NT 

F PARAMETER BETAV ', 4*6H , 'MOMENTUM TRANSFER COEFFICIENT 

G^V *7*6H , ' HE A T T R A N S F E R CO E F F I C i E NT B A S ED ON E NT HA L P Y POT E NT 

HI AL ', 3*6H , 'TRANSFORMED STREAMWISE COORDINATE XI IN POU 

I NDS**2 P E R S ECONO * * 2 'T** 7 TOTAL GAS MASS FLUX IN POUND 

JS PER SQUARE FOOT SECOND 'TOTAL GAS BLOWING PARAMETE 

KR ' ; T*7*6H 7 

DATA( ( FLOY ( I , J) , 1= 1 , 12), J-29, 31 )/ 'MOMENTUM TRANSFER COEFFICIENT 

$ 7*6H * , ' HE A TT R ANSF ER C 6 EF F ICI E NT 'V7*6H 

$ 'HEAT FLUX ' , 10*6H / 

D ATA F L D P / ' T EMP E RAT li RE F ROM THEWAL LTOBOUND ARY LAY E R E D GE IN D EG 

AREES RANKINE ', 'RATIO OF BOUNDARY LAYER VELOCITY TO EDGE VELO 

BC I T Y FROM WALL TO EDGE '* **’ *** y M ACH NUMB E R F ROM T! HE WALL TO THE 

CUNDARY LAYER EDGE ' , 3*6H , 'DENSITY FROM THE WALL TO THE BO 

DUNDARY' LAYER EDGE IN POUND s/CUB ^C FOO T ' * ; V I SCOS I W F ROM WALL T* 

EO B. L. EDGE TIMES 100,000 POUNDS PER FOOT SECOND ' , 'SPECIFIC HEANK 7/83 

F AT F ROM WALL TO BOUND ARY LAY ER E DG E IN B T UP ER P OUND DE G R EE R ' , 

G 'STATIC ENTHALPY FROM WALL TO BOUNDARY LAYER EDGE IN BTU PER POU 

HND V / f Q-fA LEN THAL PY F ROM THE WALLTO THE BOUNDARY LAY ERE DG 

IE IN BTU PER POUND', 'THERMAL CONDUCTIVITY FROM WALL TO BL EDGE TIANK 7/83 
JMES 1 . 6E5 IN BTU /FT SEC DG R ; 'EP ^ MAT! CEDDYVI SCOSIT ANK 7/ 83 
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666666 

oooooo 

666666 

oooooo 

666666 

oooooo 

666666 

oooooo 

666666 

oooooo 

'666666 

oooooo 

666666 

oooooo 

'666666 

oooooo 

666666 

oooooo 

666666 

oooooo 

666666 

oooooo 

666666 

NEWOOOOOO 

NEWOOOOOO 

NEWOOOOOO 

666666 ' 

OOOOOO 

666666 

OOOOOO 

oooooo 

oooooo 

666666 

oooooo 

666666 

oooooo 
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.. J j j ,__j .... ; _j 




J 



1 I '] 1 ] ! 1 i ■ 1 ■ 1 1 1 1 1 : 1 1 1 — 1 

w w w 


00150 

99* 



KY FROM THE WALL TO BOUNDARY LAYER EDGE', 'SHEAR FROM THE WALL 

TO 

B 


oooooo 


00150 

lOO* 



LOUNDARY LAYER EDGE IN POUNDS PER SQUARE FOOT', 'ETA ARRAY 

FROM 


000000 


00150 

101* 



M THE WALL TO THE BOUNDARY LAYER EDGE ', 3»6H , 'SPECIFIC 

HE 


oooooo 


00150 

102* 



NAT RATIO GAMMA FROM THE WALL TO THE BOUNDARY LAYER EDGE 

, 



oooooo 


00150 

103* 



0 ' PITOT TUBE PRESSURE ACROSS THE BOUNDARY LAYER IN POUNDS PER 

SQUA 


oooooo 


00150 

104* 



PRE INCH ' , 12*6H 7 




oooooo 


00150 

105* 

C 






oooooo 


00152 

106* 



CALL IDENT ( 105 , ADARY ) 




oooooo 


00153 

107* 



REWIND 3 




000003 


00154 

108* 



DO 10 I = 1 , NS 




000006 


00157 

109* 


10 

READ (3) X( I ) , Y ( 1 ,2) , Y(I , 12) , Y(1 , 18) , Y(I ,22) . Y(1 ,23) , Y( 1 ,26) 




000016 


00171 

1 10* 



I AXIS =31 




NEW00003 1 


00172 

111* 



WRITE (10) IS , IAXIS 




-01000033 


00176 

1 12* 



DO 20 I = 1 , IS 




000054 


00201 

1 13* 



READ (3) Y(I ,3) , Y(I ,6) , Y(l , l),Y(I, 19) 




000054 


00207 

1 14* 



READ (3) Y ( I , 13),Y(I,27) 




000063 


00213 

115* 



READ (3) Y(I,24),Y(I,25),Y(I,28) 




000071 


00220 

1 16* 



READ( 3 )Y ( I ,29) , Y(I ,30) , Y(I ,31) 




NEWOOOIOO 


00225 

117* 



READ (3) Y(I ,9) , Y(I , 10) 




000107 


00231 

118* 



READ (3) Y(I ,7) , Y(I .8) , Y(i , 1 1 ) , Y(i , 14) , Y( I ,20) , Y(I .2) ) 




OOOI 15 


00241 

1 19* 



READ (3) Y(I, 5) , Y(1 . 15) , Y ( I , 16) , Y(I , 17) , Y( I ,4) 




000127 


00250 

120* 


20 

WRITE (10) X(I ) , (Y(I , J) , J = 1, IAXIS) 




000140 


00260 

121* 



CALL MINMAX ( IS . 1 , 1 . IS , X , XR , XL ) 




000156 


0026 1 

122* 



IF ( IUNIT . EQ. 1) CALL CHANGE 




000167 


00263 

123* 



DO 30 J = 1 , IAXIS 




000174 


00266 

124* 



IF (NPLOf(j) .EQ. 6) GO TO 30 




000203 


00270 

125* 



IF (NPLOT(U) .EQ. 2) GO TO 26 




000205 


00272 

126* 



CALL MINMAX (IS, 2, 1, 1,Y(1,J),YT,YB) 




000210 


00272 

127* 

C 


SKIP PLOT IF ALL DATA IS ZERO 




000210 


00273 

128* 



IF (ABS(YB) + ABS(YT) .LE. 0.0) GO to 30 


ANK 

7/83 

000223 


00275 

129* 



GO TO 27 




000230 


00276 

130* 


26 

CALL LOGPLT ( FLDX ( 1 , 1 ) , FLDY (. 1 , J ) , IPP , I S , X , XL , XR , Y ( 1 , J ) ) 


ANK 

5/83 

000232 


00277 

131* 



GO TO 28 




000247 


00300 

132* 


27 

CALL QUIK3L (-1 , XL , XR , YB , YT . 5 , FLDX( 1 . 1 ) , FLDY ( l.d).-IS.X.Y(l.j)) 

ANK 

3/83 

000251 


00301 

133* 


28 

CALL PRINTV ( 78 , CASE , 30, 1023 ) 


ANK 

7/83 

000274 


00302 

134* 



IX = MAXO (IS/MS, 1 ) 


ANK 

3/83 

000301 


00303 

135* 



NUMBR = IS/IX 


ANK 

3/83 

0003 1 1 


00304 

136* 



CALL APLOTV ( NUMBR , X , Y ( 1 , J ) , IX , IX , 1 , IPP , I ERR ) 


ANK 

5/83 

000315 


00305 

137* 


30 

CONTINUE 




000335 


00307 

138* 



REWIND 2 




000335 


00310 

139* 



WRITE (10) N 




000340 


00313 

140* 



READ (2) RSTAR, (Q( I ) , R( I ) . I = 1,N) 




000350 


00323 

141* 



WRITE (10) RSTAR, (Q( I ) ,R(I ) , I = 1.N) 




000363 


00333 

142* 



READ (2) RCiRC.RS^ ,U(i) f V(i), I = i,N) 




000376 


00333 

143* 

C 


NORMALIZE CORRECTED CONTOURS TO ORIGINAL THROAT RADIUS FOR PLOTTING 


000376 


00346 

144* 



DO 31 J = 1 ,N 




000417 


00351 

145* 



Z(U) = Z( J)*RCIRC/RSTAR 




000417 


00352 

146* 



W(J) = W(d)*RCIRC/RSTAR 




000422 


00353 

147* 



U( J) = U( J ) +RSQAR/RSTAR 




000426 


00354 

148* 


31 

V(U) = V(d)*RSQAR/RSTAR 




000432 


00356 

149* 



WRITE (10) RCIRC , RSQAR ,(Z(I),W(I),U(I),V(I), I = 1.N) 




000437 


00371 

150* 



IF ( NPCON .EQ. 0) GO TO 42 




000455 


00371 

151* 

C 


FORCE A BLANK FRAME ON THE MICROFICHE 




000455 


00373 

152* 



CALL FRAMEV (2) 


ANK 

7/83 

000457 


00374 

153* 



XMIN = AMIN1 (Q( 1 ) ,U( 1 ) ,Z( 1 ) ) 




000462 

* 

00375 

154* 



XMAX = AMAX i(Q(N),U(N),Z(N)) 




000474 


00376 

155* 



YMAX = AMAX1 (R(N) ,V(N) ,W(N) ) 




000507 


00377 

”156* 



XMIN = SIGN( AINT ( ABS(XMIN) * lO. 6)/ 10.6 + 6. 10, XMIN) 




000521 


00400 

157* 



NOGRID = IFIX( (XMAX - XMIN)/YMAX) + 1 




000532 


00401 

158* 



CALL BUTTV(I) 




000544 




00402 

00403 

00404 

1 59* 
160* 
161* 


YB = 0-0 
YT = YMAX 
XR - XMIN 



000547 

000550 

000552 

00405 

162* 


LA = 1 



000554 

00406 

163* 


LB = 1 



000556 

00407 

164* 


LC = 1 



000557 

00410 

165* 


DO 35 M = 1 .NOGRID 



000565 

00413 

166* 


XL = XR 



000565 

00414 

167* 


XR = XR + YT 



000567 

00415 

168* 


CALL NICK ( 1 . -1 ,N, LA , LXIN ,XL , XR , YB , YT ,Q,R) 

ANK 

3/83 

000571 

00416 

169* 


IF (M .NE. 1) GO TO 32 



000606 

00420 

170* 


CALL PRINTV ( 8 , 8HRST AR = ,100.1005) 

ANK 

8/83 

000611 

00421 

171* 


CALL LABLV ( RSTAR . 2 1 5 , 1005 , 7 , 1 , 2 ) 



000617 

00422 

172* 


CALL PRINTV (11.11HR CIRCLE = ,420, 1005) 

ANK 

CO 

00 

00 

000627 

00423 

173* 


CALL LABLV ( RCI RC , 574 . 1005 . 7 , 1 , 2 ) 



000635 

00424 

174* 


CALL PRINTV (11.11HR SQUARE = ,775,1005) 

ANK 8/83 

000645 

00425 

175* 


CALL LABLV (RSQAR , 930, 1005 , 7 , 1 , 2 ) 



000653 

00426 

176* 

32 

CALL NICK ( 2 ,6, N , LB , LWXO , XL ,XR, YB , YT , Z, W) 

ANK 

3/83 

000664 

00427 

. 177* 


IF(M0D(M, 2) . EQ. 1 . AND . MOD(M, 3 ) . EQ. 1 ) CALL PRINTV( 72 , LYIN, 30, 1023) 

ANK 

8/83 

000700 

00431 

178* 


I F (MOD(M, 2 ) . EQ.O. AND . MOD( M, 3 ) . EQ . 1) CALL PRINTV( 72 , LWYO , 30. 1023) 

ANK 

8/83 

000726 

00433 

179* 


IF(M0D(M.2) . EO. 1 . AND . MOD( M. 3 ) . EQ . 0) CALL PRINTV ( 72 , LYI V . 30. 1023) 

ANK 

8/83 

000753 

00435 

180* 

35 

CALL NICK ( 3 ,0, N , LC , LXI V , XL , XR , YB , YT , U , V ) 

ANK 

3/83 

001000 

00437 

181* 


CALL BUTTV(O) 



001017 

00440 

182* 

42 

IWALL = 14 



001023 

00441 

183* 


WRITE (10) NETA, IWALL 



001024 

00445 

184* 


REWIND 4 



001034 

00446 

185* 


DO 70 L = 1 . IS 



001042 

00451 

186* 


DO 45 I = 1 , NETA 



001057 

00454 

187* 

45 

READ (4) Y(I, 12).Y(I,2),Y(I, 13),Y(I, 11) 



001057 

00463 

188* 


DO 50 I =. 1 .NETA 



001072 

00466 

189* 

50 

READ (4) X(I),Y(I.4),Y(I,3),Y(I,14),Y(I,7),Y(I,8) 



001072 

00477 

190* 


DO 52 I = 1 , NETA 



001 107 

00502 

191* 

52 

READ (4) Y(I,5),Y(I,6),Y(I,9),Y(I, 1 ) , Y( I , 10) 



OOI 107 

00512 

192* 


DO 55 I = 1 , NETA 



OOI 124 

00515 

193* 

55 

WRITE do) X(I),(Y(I,K), K = 1, IWALL) 



001124 

00525 

194* 


IF (NSTAT(L) -EQ. O) GO TO 70 



001141 

00527 

195* 


CALL MINMAX ( NETA , 1 , 1 , NETA . X , XR , XL ) 



OOI 143 

00530 

196* 


IF (L . GT . 1) < 'FLDX( 12,2) = ZS(L) 



OOI 157 

00532 

197* 


DO 65 J = 1 , IWALL 



001172 

00535 

198* 


IF (NSTP(d) .EQ. O) GO TO 65 



001172 

00537 

199* 


CALL MINMAX (NETA , 2, 1 . 1 , Y( 1 , d) , YT. YB) 



001 174 

00537 

200* 

C 

SKIP PLOT IF ALL DATA IS ZERO 



OOI 174 

00540 

201* 


IF (ABS(YB) + ABS(YT) . LE . 0.0) GO TO 65 

ANK 

7/83 

001207 

00542 

202* 


CALL OU i K3L ( - 1 . YB , YT , XL . XR , I PP , FLOP ( 1 f U ) . FLDX ( 1 , 2 ) , -NETA . Y ( 1 , J ) , X ) ANK 

5/83 

001214 

00543 

203* 


CALL PRINTV ( 78 , CASE , 30, 1023 ) 

ANK 

7/83 

001237 

00544 

204* 

65 

CONTINUE 



001253 

00546 

205* 

70 

CONTINUE 



001253 

00550 

206* 


WRITE (6.2) IS . N. NETA 



001253 

00555 

207* 

2 

FORMAT (///10X, 'BLIMP PLOT TAPE COMPLETED IS =',I3,' N =',I4. 



001263 

00555 

208* 


1 ' NETA =' .13/7) 



001263 

00556 

209* 


CALL ENDJOB 



001263 

00557 

210* 


RETURN 



001265 

00560 

211* 


END 



001322 


END OF COMPILATION: NO DIAGNOSTICS. 
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@SYS$*MSFCFOR$.FOR, IS ROUGH 
HSA E3 -12/10/84-22:23:44 ( .O) 


SUBROUTINE ROUGH ENTRY POINT 000172 


S TOR AG E U S E D : CO D E ( 1 ) 000176; DA T A ( 6 ) 00003 4 ; B L A NK C 0 MMO N ( 2 ) 666666 


COMMON 

BLOCKS 


0003 

RUF 

000022 

0004 

RUF3 

000002 


E X T E R N A L REF E R E NC E S ( B LOC K , NAME ) 


0005 A LOG 10 

0006 XPRR 

6667 SORT 

0010 NERR3$ 


STORAGE 

assignment 

(BLOCK, TYPE, RELATIVE 

LOCATION, NAME) 










0001 


00004 1 

10L 

0001 


000163 

100L 

OOOI 


000052 

20L 

0003 

R 

000021 

CF 

OOOO 

R 

OOOOOO 

CFCFI 

OOOO 

R 

00000 1 

CFI 

OOOO 

R 

000002 

CFR 

0003 

R 

OOOOOO 

CFS 

0004 


00000 1 

DEACY 

OOOO 

R 

000004 

ETAK 

0003 

R 

000016 

FMF 

0003 

R 

000004 

HAW 

0003 

R 

000003 

HE 

0003 

R 

000005 

HW 

0003 

I 

000015 

ICF 

0000 


000025 

INJP$ 

0003 

R 

OOOOI 1 

MUE 

0003 

R 

000010 

MUW 

0003 

R 

000020 

PCT 

0003 

R 

000012 

PR 

0000 

R 

000005 

REK 

0003 

R 

8 

0) 

RHOE 

0003 

R 

000007 

RHOW 

0003 

R 

000014 

RK 

0003 

R 

000017 

ST 

OOOO 

R 

000006 

STR 

0003 

R 

OOOOOI 

STS 

0003 

R 

000013 

UE 

0004 


OOOOOO 

UTAU 

OOOO 

R 

000003 

UTAU 1 

0003 

R 

000002 

X 



















00101 

1 * 


SUBROUTINE ROUGH ( A ) 


OOOOOO 

00103 

2* 


REAL 

MUW , MUE 


OOOOOO 

00104 

3* 


COMMON/ RUF /CFS , STS . X . HE , HAW , HW , 

RHOE , RHOW , MUW , MUE , PR , UE , RK , ICF , 

OOOOOO 

00104 

4* 


$ FMF 

, ST.PCT.CF 


OOOOOO 

00105 

5* 


COMMON/ RUF3/UT AU , DEACY 


OOOOOO 

00105 

6* 

C 





OOOOOO 

00105 

7* 

C 

INPUT VARIABLES 


OOOOOO 

00105 

8* 

C 





OOOOOO 

00105 

9* 

C 

CFS 

- 

SMOOTH WALL SKIN FRICTION 

COEFFICIENT 

OOOOOO 

00105 

10* 

C 

STS 

- 

SMOOTH WALL STANTON NUMBER 

OOOOOO 

00105 

11* 

C 

X 

- 

RUNNING LENGTH 

(FT) 

OOOOOO 

00105 

12* 

C 

HE 

- 

B.L. EDGE ENTHALPY 

(BTU/LBM) 

OOOOOO 

00105 

13* 

C 

HAW 

- 

ADIABATIC WALL ENTHALPY 

(BTU/LBM) 

OOOOOO 

00105 

14* 

c 

HW 

- 

WALL ENTHALPY 

( BTU/LBM) 

OOOOOO 

00105 

15* 

c 

RHOE 

- 

B.L. EDGE DENSITY 

( LBM/CU . FT . ) 

OOOOOO 

00105 

16* 

c 

RHOW 

- 

WALL DENSITY 

(LBM/CU.FT . ) 

OOOOOO 

00105 

17* 

c 

MUW 

- 

WALL VISCOSITY 

(LBM/FT. -SEC) 

OOOOOO 

00105 

18* 

c 

MUE 

- 

EDGE VISCOSITY 

(LBM/FT. -SEC) 

OOOOOO 

00105 

19* 

c 

PR 

- 

PRANDTL NUMBER (EDGE) 


OOOOOO 

00105 

20* 

c 

UE 

- 

B.L. EDGE VELOCITY 

(FT/SEC) 

OOOOOO 

00105 

21* 

c 

RK 

- 

SAND ROUGHNESS HEIGHT 

(FT) 

OOOOOO 

00105 

22* 

c 

ICF 

- 

SKIN FRICTION FLAG 

1 - PRANDTL - SCHLICHTING 

OOOOOO 

00105 

23* 

c 




2 - DROBLENKOV 

OOOOOO 

00105 

24* 

c 

FMF 

- 

MANGLER FACTOR 

1.00 - 2D OPTION 

OOOOOO 



00105 

25* 

C 

1.15 - AXISYMETRIC 

OOOOOO 

00105 

26* 

C 


000000 

00105 

27* 

c 


OOOOOO 

00105 

28* 

c 

OUTPUT VARIABLES 

OOOOOO 

00105 

29* 

c 


OOOOOO 

00105 

30* 

c 

ST - ROUGH WALL STANTON NUMBER 

OOOOOO 

00105 

31* 

c 

PCT - PERCENT OF TRANSITION TO FULLY ROUGH 

OOOOOO 

00105 

32* 

c 

CF - ROUGH WALL SKIN FRICTION COEFFICIENT 

OOOOOO 

00105 

33* 

c 


OOOOOO 

00106 

34* 


I F( ICF . EQ. 3 )G0 TO lOO 

OOOOOO 

00106 

35* 

c 

SKIN FRICTION COMPRESSIBILITY (YOUNG) 

OOOOOO 

001 io 

36* 


CFCF i = (6 . 365*HE/HAW)+ (6 . 635*HE/HW ) 

000002 

001 1 1 

37* 


IF(CFCFI.LE .0. 0)CFCFI=0. 0 

000012 

OOI 1 1 

38* 

c 

INCOMPRESSIBLE ROUGH WALL SKIN FRICTION 

000012 

OOI 13 

39* 


I F ( ICF . NE . 1 )G0 TO IO 

000016 

001 13 

40* 

c 

OPT ION ( i) PRANDTL - SCHLICHT ING 

000016 

001 15 

41* 


CFI=(2.87+1. 58*AL0G10(X/RK) )**-2.5 

00002 1 

001 16 

42* 


GO TO 20 

000037 

001 17 

43* 

IO 

CONTINUE 

000041 

001 17 

44* 

c 

OPtiON(2) DROBLENKOV 

000041 

00120 

45* 


CFI=0.0139*(X/RK )**- ( 1 .0/7.0) 

000041 

00121 

46* 

20 

CONTINUE 

000052 

00122 

47* 


CFR=CFCFI*CFI *FMF 

000052 

00122 

48* 

c 

TRANSITION CRITERION (FENTER) 

000052 

00123 

49* 


UTAU1 =UE*SQRT( (CFR/2.O)*(RH0E/RH0W) ) 

000055 

00124 

50* 


E T A K = R HO W * U T AU 1 * R k7 MU W 

000070 

00124 

51* 

c 

ROUGH SURFACE TURBULENT STANTON NUMBER 

000070 

00124 

52* 

c 

A- O . 52 NOMINAL , RANGE OF 0.45 TO 0.7 (OWEN - THOMSON) 

000070 

00125 

53* 


REK=RHOE*UE*RK/MUE 

000074 

00126 

54* 


STR=CFR/2.*( 1 .+A*(CFR/2. ) ** . 725*REK** . 45«PR*» . 8 ) * * - 1 . @ (SEIDMAN) 

OOOIOI 

00126 

55* 

c 

STR=CFR/2.»( 1 .+A*((CFR/2. ) * (HW/HE ) ) ** . 5*REK»* . 45»PR* * . 8 ) ** - 1 . @ (HILL) 

000101 

00126 

56* 

c 


OOOIOI 

00126 

57* 

c 

100 USED BY FENTER , 70 USED BY HILL , 65 USED BY PIMENTA 

000101 

00126 

58* 

c 

PIMENTA VALUE CURRENTLY USED FOR TRANSITION 

OOOIOI 

00126 

59* 

c 

ETAK .LE. 5.0 SMOOTH 

OOOIOI 

00126 

60* 

c 

5.0 -LE. ETAK . LE . 65.0 TRANSITIONALLY ROUGH 

OOOIOI 

00126 

61* 

C 65.0 . LT. ETAK ROUGH 

OOOIOI 

00126 

62* 

C 


OOOIOI 

00127 

63* 


PCT=(ETAK-5.0)/( 65. 0-5.0) 

000126 

00130 

64* 


IF (PCT . LT .0.0) PCT =0.0 

000132 

00132 

65* 


I F ( PCT . GT . 1 .0)PCT=1 .O 

000136 

00134 

66* 


CF=(PCT*CFR)+( ( 1 .O-PCT )*CFS) 

000144 

00135 

67* 


ST = ( PCT + STR ) + ( ( 1 . O-PCT ) *STS ) 

000154 

00136 

68* 

lOO 

CONTINUE 

000163 

00137 

69* 


RETURN 

000163 

00140 

70* 


END 

000175 


END OF COMPILATION: NO DIAGNOSTICS. 
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@SYS$*MSFCFOR$ . FOR , I S PARTCL 
HSA E3 -12/10/84-22:23:46 (,0) 


SUBROUTINE PARTCL ENTRY POINT 000165 


S T OR A G E U SEE):" COD E ( 1 ) 666 170 r D AT A ( 6 ) 000026 ; B L ANK CO M^ 666666 


COMMON BLOCKS: 


0003 PARTI 000020 

0004 RUF 000022 


EXTERNAL REFERENCES (BLOCK'r NAME) 


0005 SORT 

0006 XPRR 

0007 NERR3S 


STORAGE ASSIGNMENT (BLOCK, .TYPE ^ RELATIVE LOCATION , NAME ) 


0001 


000041 

100L 

OOOI 


000075 

105L 

OOOI 


OOOI 10 

1 10L 

0001 


000152 

1 20L 

0001 


000155 

1 60L 

oooo 

R 

000003 

BETA5 

0003 

R 

000006 

CF 

0004 

R 

000021 

CFR 

0004 

R 

OOOOOO 

CFRO 

0003 

R 

000004 

CP 

oooo 

R 

000005 

D 

0004 


000012 

DUMM1 1 

0004 


000020 

DUMM17 

0004 


000003 

DUMM4 

0004 

R 

000004 

DUMM5 

0004 

R 

000005 

DUMM6 

0004 


000007 

DUMM8 

0004 


OOOO 10 

DUMM9 

0004 


000016 

FMF 

0004 


000015 

I CF 

0003 

I 

000013 

ILT 

OOOO 


000016 

INJP$ 

0003 


000017 

I PART 

0003 

R 

000015 

K 

0003 

R 

000010 

KG 

0003 

R 

000001 

LAMBV 

0003 

R 

OOOOOO 

M 

0004 

R 

OOOOI 1 

MUE 

OOOO 

R 

OOOOOO 

NU 

OOOO 

R 

000001 

PI 

0003 

R 

000014 

0 

OOOO 

R 

000006 

QDOT 

0003 

R 

000003 

RED 

0004 

R 

000006 

RHOE 

0003 

R 

000002 

RHOP 

0004 


000014 

RK 

0003 


000016 

RP 

0004 

R 

000017 

STR 

0004 

R 

00000 1 

STS 

0003 

R 

00001 1 

TAW 

0003 

R 

000012 

TW 

0004 

R 

000013 

UE 

OOOO 

R 

000004 

W 

0003 

R 

000007 

WF 

0003 

R 

000005 

WP 

0004 

R 

000002 

X 

OOOO 

R 

000002 

Y 














OOIOI 

1* 


SUBROUTINE PARTCL 


OOOOOO 

00103 

2* 


REAL K , KG , LAMBV , M , MUE , NU 


OOOOOO 

00104 

3* 


COMMON /PART I /M . LAMBV . RHOP , RED f CP , WP , 

CF , WF , KG , TAW , TW , 

OOOOOO 

00104 

4* 


$ I LT , Q , K , RP , I PART 


OOOOOO 

00105 

5* 


COMMON/ RUF/ CFRO , STS , X , DUMM4 , DUMM5 

, DUMM6 , RHOE , DUMM8 , 

OOOOOO 

00105 

6* 


1 DUMM9 f MUE , DUMM 1 1 ,UE,RK, ICF , FMF , STR , DUMM 1 7 . CFR 

OOOOOO 

00105 

1 * 

C 



OOOOOO 

00105 

8* 

C 

INPUT VARIABLES 


OOOOOO 

00105 

9* 

C 



OOOOOO 

00105 

io* 

C 

M - AVERAGE PARTICLE MASS 

( LBM) 

OOOOOO 

00105 

1 1* 

C 

UE - BOUNDARY LAYER EDGE VELOCITY 

(FT/SEC) 

OOOOOO 

00105 

12* 

C 

SIGMA - STOKERS DRAG COEFFICIENT 

(LBM/SEC) 

OOOOOO 

00105 

13* 

c 

A - RADIUS OF SPHERICAL PARTICLE 

(FT) 

OOOOOO 

00105 

14* 

c 

MUE - GAS VISCOSITY 

( LBM/FT SEC) 

OOOOOO 

00105 

15* 

C 

LAMBV - MOMENTUM RANGE 

(FT) 

OOOOOO 

00105 

16* 

c 

RHOP - PARTICLE MASS DENSITY OF THE GAS 

(LBM/FT3) 

OOOOOO 

00105 

17* 

c 

RHOE - GAS DENSITY 

( LBM/FT3 ) 

OOOOOO 

00105 

18* 

c 

RED - EDGE REYNOLDS NUMBER BASED ON D 


OOOOOO 

00105 

19* 

c 

X - RUNNING LENGTH 

(FT) 

OOOOOO 

00105 

20* 

c 

TAU - SHEAR STRESS 

( LBF/FT 2 ) 

OOOOOO 

00105 

21* 

c 

CFRO - FRICTION COEFFICIENT 


OOOOOO 

00105 

22* 

c 

STS ‘ SMOOTH STANTON NUMBER 


OOOOOO 



00105 

23* 

C 

CP 

- SPECIFIC HEAT OF THE SOLID PARTICLE 

(BTU/LB DEG F) 

oooooo 


00105 

24* 

C 

WP 

- MASS FLOW OF PARTICLES 

(LB/FT2 SEC) 

oooooo 


00105 

25* 

c 

CF 

- SPECIFIC HEAT AT CONSTANT PRESSURE OF 

FLUID (BTU/LB DEG F) 

oooooo 


00105 

26* 

c 

WF 

- MASS FLOW OF FLUID 

( LB/FT2 SEC) 

oooooo 


00105 

27* 

c 

K- 

RATIO OF PARTICLE DENSITY TO FLUID MASS 

DENSITY AT EDGE 

oooooo 


00105 

28* 

c 

KG 

- THERMAL CONDUCTIVITY OF THE GAS 

(BTU/SEC FT DEG K) 

oooooo 


00105 

29* 

c 

D 

- DIAMETER OF THE TUBE 

(FT) 

oooooo 


00105 

30* 

c 

NU 

- NUSSELT * S NUMBER 


oooooo 


00105 

31* 

c 

TAW - ADIABATIC WALL TEMPERATURE 

DEG. R 

oooooo 


00105 

32* 

c 

TW 

- WALL TEMPERATURE 

DEG. R 

oooooo 


00105 

33* 

c 

I LT - FLOW TYPE FLAG 1 - LAMINAR 


oooooo 


00105 

34* 

c 


2 - TURBULENT 


oooooo 


00105 

35* 

c 

OUTPUT VARIABLES 


oooooo 


00105 

36* 

c 




oooooo 


00105 

37* 

c 

CFR - MODIFIED FRICTION COEFFICIENT 


oooooo 


00105 

38* 

c 

STR - PARTICLE STANTON NUMBER 


oooooo 


00105 

39* 

c 




oooooo 


00106 

40* 



PI =3 . 1415927 


oooooo 


00107 

41* 



IF( ILT. EQ.2) GOTO 100 


000001 


00107 

42* 

c 

IF I LT = 2 THE FLOW IS TURBULENT 


OOOOOI 


00111 

43* 



K=RHOP/RHOE 


000004 


001 12 

44* 



Y=LAMBV/X 


000007 


00112 

45* 

c 

THE 

EQUATIONS USED TO COMPUTE QDOT AND CFR 

ARE DIFFERENT WHEN 

000007 


00112 

46* 

c 

LAMBDA/X IS LESS THAN 1. THAT THE EQUATIONS USED WHEN LAMBDA/X 

000007 


001 12 

47* 

c 

IS 

GREATER THAN 1 . HERE ONLY LAMBDA/X LESS 

THAN 1 CASE 15 USED. 

000007 


001 13 

48* 


10 

CFR=CFRO*SQRT ( 1. +K)*( 1 .+( .49*(Y*K /( 1 . 

+K)))) 

000012 


001 14 

49* 



STR = STS*SQRT ( 1 . +K) * ( 1 . +( . 49* ( Y*K /(I 

. + K ) ) ) ) 

000031 


001 15 

50* 



0 =STR/STS 


000035 


001 16 

51* 



GOTO 160 


000037 


OOI 17 

52* 


ioo 

BETA5= ( WP+CP )/( WF*CF ) 


00004 1 


00120 

53* 



W=WP/WF 


000046 


00121 

54* 



IF(W. LT. 1 . .OR. ABS(W- 1 . ) . LT . .OOI ) GO TO 

105 

00005 1 


00123 

55* 



I F ( W . GT . 1 . ) GOTO 1 10 


000070 


00123 

56* 

c 

THIS IF STATEMENT SERVES THE SAME PURPOSE AS THE IF STATEMENT FOR 

000070 


00123 

57* 

c 

THE LAMINAR CASE 


000070 


00125 

58* 


105 

CFR=CFRO*( 1 . +BETA5 ) 


000075 


00126 

59* 



STR =STS *( 1 . +BETA5 ) 


000101 


00127 

60* 



o =str/sts 


000104 


00130 

61* 



GOTO 120 


000106 


00131 

62* 


1 10 

NU=. 14*(RED**.6)*(W**.45) 


0001 10 


00132 

63* 



D=RED/(RHOE*UE/MUE) 


000123 


00133 

64* 



QDOT = ( (NU*KG )/D ) * ( TAW-TW ) 


000131 


00134 

65* 



STR=QDOT/( (DUMM5-DUMM6)*RH0E*UE ) 


000137 


00135 

66* 



Q =STR/STS 


000145 


00136 

67* 



CFR=Q*CFRO 


000147 


00137 

68* 


120 

CONTINUE 


000152 


00140 

69* 



RETURN 


000152 


00141 

70* 


160 

CONTINUE 


000155 


00142 

71* 



RETURN 


000155 


00143 

72* 



END 


000167 



END OF COMPILATION: NO DIAGNOSTICS. 
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®SYS$*MSFCFOR$ . FOR , WUS BLKDTA 
HSA E3 -12/10/84-22:23:49 (22,23) 

-21 

COMMON/ RU F /" DUMMT , DUMM2 70UMM3,' DU MM4 ” DUMM5 DUMM8 \ DUMM9 , 

$ DUMM lO , DUMM 1 1 ,DUMM12,RK. I CF , FMF , DUMM 1 6 . DUMM 1 7 , DUMM 1 8 

C 0 MMO N/P A R T I / P A R T M , D U M M2 4 , R HO P A , DU MM 2 3 ” CP A R T , W P , DU MM 1 9 , W F 

$ DUMM22 , DUMM20 , DUMM2 1 , I LT . PF , AK , RP , IPART 

COMMON / L A M/ I LAM I N 

-92 

C D E FA U L T V A L U E 5 FOR R 6 U GHNE S S 0 P T 1 0 N 

DATA FMF/1 . 15/.ICF/0/.RK/0.0/ 

C • D E FAULT VALUES F OR P ART i C L E OPT I ON 

DATA IPART/ 0/ , RP/O./ . WP/O. / , WF/ 1 . / , CPART/O. / , RHOPA/O. / 

C D E F A U L T V A LUES FOR R E L AM I N A R I Z A f I ON OPT I ON : 

DATA I LAMIN/O/ 


BLOCK DATA 

STORAGE 

USED: < 

C0DE(1) OOOOOO; DATA(O) OOOOOO; BLANK C0MM0N(2) OOOOOO 

COMMON 

BLOCKS 


0003 

AL 

000002 

0004 

0005 

CARDS 

CONSTS 

000003 

OOOOIO 

0006 

0007 

CRBCOM 

EPSCOM 

0001 1 1 
000045 

0010 
001 1 

EOPCOM 

ETACOM 

000435 
0000 1 7 

0012 

0013 

HOLLER 

INPUTI 

000060 

000015 

0014 

0015 

INTCOM 

LOWTH 

0001 15 
001372 

0016 

0017 

NZERO 

PLOTS 

OOOOOI 

000172 

0020 

0021 

PRMALS 

RFTCOM 

000154 

000045 

0022 

0023 

RUF 

PARTI 

000022 

000020 

0024 

0025 

LAM 

SAHA 

OOOOOI 

000066 

0026 

0027 

TEMCOM 

UNICOM 

000162 
OOOOl 1 

0030 

WALTEM 

000715 


S TO RAGE A SSI GNM E NT ( B L 0 C K , T Y P E . R E L AT I V E LOCATION •...NAM.? ). 

0020 OOOOOO A 0023 000015 AK 0030 OOOOOO ALTAB 0012 I OOOOOO AREA 0006 OOOOOO ASU 

6616 booooo at a ooioRO^ ooi 4 ‘ 666066 case 0014 R ”666615 CBAR 6667 *'r” ^oooooo" 'clnuST™ 

0023 R 000004 OPART 0005 R OOOOOO CPFL 0025 OOOOOO CPH 0015 R OOOOOO CPL 0012 I 000002 CQ 

6612 i‘ 000006 dens ddV2'‘'Fod6oi6"bisf boot bbbobi dl boos r booooi dp-r 0604 bbb6bb'*buB8 

0022 OOOOOO DUMM 1 0022 OOOOl 1 DUMMIO 0022 000012 DUMM1 1 0022 000013 DUMM 12 0022 000017 DUMM16 

0022 000020 DUMM 1 7 0022 00002 T DUMM 1 8 0023 000606 DUMM19 0022 000001 DU MM2 0023 6666 1 1 DUMM2 6 

0023 000012 DUMM21 0023 OOOOIO DUMM22 0023 000003 DUMM23 0023 OOOOOI DUMM24 0022 000002 DUMM3 

0022 bob 003 DUMM4 0022 000004 DUMM5 0022 000005 "DUMM6 0022 000006 '"DUMM 7 0022 " " 660007 DU MM8 

0022 OOOOIO DUMM9 0007 R 000020 ELCON 0012 I 000012 ENERGY OOIO R 000031 EPOVRK 0007 000021 EPSA 

001 1 R OOOOOO ETA OOIO 660032 FF 666 4 R 66666 1 F F A R 0004 R 000002 FITMOL 0017 666666 FLDX 

0012 I 000014 FLUX 0022 R 000016 FMF 0021 R OOOOOO F2FIX 0021 000017 F2FIXT 0005 R 000002 GC 

66 1 2 1 6666 16 HE AT 66 1 5 R 0002 2 6 HL 0012 “T 666622 "HWALL 0014 666616 I 0015 I 000454 I ADD 



0013 

I 

oooooo 

IBODY 

0022 

I 

000015 

ICF 

0025 

I 

000062 

ICON 

0030 

I 

000231 

ICOOL 

0026 

I 

OOOOOO 

IDAT 

0013 

X 

oooooi 

IDERIV 

0013 

I 

000002 

IDIFF 

0026 

I 

OOOOOI 

I ED 

0030 


000232 

IENH 

0013 

I 

000003 

I ETA 

0013 

I 

000004 

I F IT 

0013 

I 

000005 

I FLOW 

0013 

I 

000006 

IGUESS 

0024 

I 

OOOOOO 

ILAMIN 

0015 

I 

000455 

ILSP 

0023 


000013 

ILT 

0026 

I 

000002 

IND 

0015 

I 

000537 

INEW 

0026 

I 

000003 

IOR 

0026 

I 

000004 

IOUT 

0023 

I 

000017 

IPART 

0025 

I 

000063 

IPASS 

0003 

I 

OOOOOO 

I PLOT 

0017 

I 

000030 

IPP 

0020 

I 

000146 

I PUNCH 

0026 

I 

000005 

IRE 

0025 

I 

000064 

I RITE 

0026 

I 

000006 

I ROC 

0026 

I 

000007 

I SAV 

0026 

I 

OOOOIO 

ITA 

0013 

I 

000007 

ITDK 

0026 

I 

OOOOI 1 

ITE 

0013 

I 

OOOOIO 

ITHERM 

0025 

I 

000065 

ITRCNT 

0003 

I 

OOOOOI 

I UN IT 

0013 

I 

OOOO 1 1 

IWALL 

0020 


000147 

J 

0013 

I 

000012 

JWALL 

0014 

I 

000023 

KAPPA 

0013 

I 

000013 

KEDGP 

0014 

I 

000024 

KONRFT 

0014 


000025 

KR9 

0026 

I 

000012 

LIF 

0026 

I 

000014 

LLA 

0026 

I 

000015 

LLAW 

0026 

I 

000016 

LOT 

0026 

I 

000017 

MAIN 

0012 

I 

000024 

MASS 

0026 

I 

000020 

MOEG 

0017 

I 

000031 

MS 

0026 

I 

000021 

MURD 

0026 

I 

000022 

NCH 

0014 

I 

OOOI 14 

NETA 

0026 

I 

000023 

NIT 

0015 

I 

000551 

NLTSP 

0017 

I 

000032 

NPCON 

0017 

I 

000033 

NPLOT 

0021 

I 

000043 

NPOINT 

0017 

I 

000071 

NSTAT 

0017 

I 

000153 

NSTP 

0026 

I 

000024 

NTOR 

0013 

I 

000014 

NTROPY 

0016 

I 

OOOOOO 

NUL 

0026 

I 

000026 

NW 

0023 


OOOOOO 

PARTM 

0005 

R 

000003 

PATM 

0023 


000014 

PF 

0005 

R 

000004 

PI 

0020 

R 

000153 

PNORM 

0012 

I 

000030 

PRESS 

0007 

R 

000040 

PRT 

0012 

I 

000032 

RAD 

0021 

R 

000044 

RATLIM 

0005 

R 

000005 

RBAR 

0007 

R 

000041 

RETR 

0012 

I 

000034 

REY 

0023 

R 

000002 

RHOPA 

0007. 


000042 

RHOVS 

0022 

R 

000014 

RK 

0023 

R 

000016 

RP 

0005 

R 

000006 

RVAR 

0007 

R 

000043 

SCT 

0012 

I 

000036 

SHEAR 

0010 

R 

000434 

SIGMA 

0005 

R 

000007 

SIPSF 

0015 

R 

000552 

SL 

0006 

R 

0001 10 

STEF 

0015 

I 

OOI 000 

SUBLT 

0012 

I 

000040 

T CON 

0012 

I 

000044 

TEMP 

0012 

I 

000046 

THRUST 

0015 

R 

OOI 144 

TL 

0030 

R 

000714 

TOLQW 

0027 

R 

OOOOOO 

UCD 

0027 

R 

OOOOOI 

UCE 

0027 

R 

000002 

UCL 

0027 

R 

000003 

UCM 

0027 

R 

000004 

UCP 

0027 

R 

000005 

UCR 

0027 

R 

000006 

UCS 

0027 

R 

000007 

UCT 

0027 

R 

OOOO 10 

UCV 

0012 

I 

000050 

VEL 

0012 

I 

000052 

VIS 

0023 

R 

000007 

WF 

0023 

R 

000005 

WP 

0012 

I 

000056 

XIPR 

0007 

R 

000044 

YAP 










00101 

1* 


BLOCK DATA 


OOOOOO 

00101 

2* 

C 



oooooo 

00102 

3* 


COMMON /AL/ IPLOT , IUNIT 

/AL/ 

oooooo 

00103 

4 * 


COMMON /CARDS/ DUB8 . FFAR , FITMOL 

/CARDS/ 

oooooo 

00104 

5* 


COMMON /CONSTS/ CPFL , DPR , GC t PATM . PI , RBAR , RVAR , SIPSF 

/CONSTS/ 

oooooo 

00105 

6* 


COMMON / CRBCOM/ ASU(72),STEF 

/CRBCOM/ 

oooooo 

00106 

7 * 


COMMON /EPSCOM/ CLNUM ,DL( 15) , ELCON , EPSA (15), PRT , RETR , RHOVS , SCT , YAP/EPSCOM/ 

oooooo 

00107 

8* 


COMMON /EQPCOM/ ATA ( 24 ). BASMOL, EPOVRK , FF (258 ), SIGMA 

/EQPCOM/ 

oooooo 

001 10 

9* 


COMMON /ETACOM/ ETA(15) 

/ETACOM/ 

oooooo 

001 1 1 

10* 


COMMON /HOLLER/ ARE A ( 2 j . CQ( 2 , 2 )' , DENS ( 2 ) . D I ST ( 2 ) , ENERGY ( 2 j , FLUX ( 2 j , 

, /HOLLER/ 

oooooo 

001 1 1 

1 1* 


1 HEAT (2,2), HWALL ( 2 ) , MASS (2,2),PRESS(2) , RAD(2 ) , REY(2 ) , SHEAR ( 2 ) , 

/HOLLER/ 

oooooo 

00111 

12* 


2 T CON C 2,2) , TEMP (2) , THRUST (2 ) , VEL (2 ) , VIS( 2 , 2 ) . XIPR ( 2 ) 

/HOLLER/ 

oooooo 

00112 

13* 


COMMON /INPUTI/ IBODY , IDERIV „ IDI FF , I ETA , I F IT , I FLOW , IGUESS , ITDK , 

/INPUTI/ 

oooooo 

001 12 

14* 


1 ITHERM, IWALL, JWALL, KEDGP, NTROPY 

/INPUT 1/ 

oooooo 

00113 

15* 


COMMON /INTCOM/ CASE( 13 ) , CBAR , I ( 5) , KAPPA , KONRFT , KR9( 55 ) , NETA 

/INTCOM/ 

oooooo 

OOI 14 

16* 


COMMON 7l6WTH7 CPL ( 3 , 50 ) , HL ( 3 , 50 ) , I ADD , IL SP ( 50) , I NEW ( 10) , NLTSP, 

/LOWTH/ 

oooooo 

001 14 

17* 


1 SL( 3 , 50) , SUBLT (50, 2) , TL (50, 3) 

/LOWTH/ 

oooooo 

OOI 15 

18* 


COMMON /NZERO/ NUL 

/NZERO/ 

oooooo 

001 16 

19* 


COMMON/PLOTS/ FLDX( 12,2) , IPP , MS . NPCON , NPLOT( 30) , NSTAT( 50) . NSTP( 15) 

1 /PLOTS/ 

oooooo 

00117 

20* 


COMMON /PRMALS/ A( 102) . I PUNCH, J( 4 ) , PNORM 

/PRMALS/ 

oooooo 

00120 

21* 


COMMON /RFTCOM/ F2FIX( 15 ), F2FIXT( 20) , NPOINT , RATLIM 

/RFTCOM/ 

oooooo 

00121 

22* 


COMMON/RUF/DUMM 1 , DUMM2 , DUMM3 , DUMM4 , DUMM5 , DUMM6 , DUMM7 , DUMM8 , DUMM9 , 


NE W000000 

00121 

23* 


$ DUMM 10, DUMM1 1 .DUMM12, RK, ICF , FMF . DUMM 16 , DUMM 1 7 , DUMM18 


N E WOOOOOO 

00122 

24* 


COMMON/PARY I /PARTM , DUMM 2 4 , RHOPA , DUMM 2 3 , CPART , WP , DUMM i 9 , WF , 


NEWOOOOOO 

00122 

25* 


$ DUMM22 , DUMM20 , DUMM2 1 . I LT , PF , AK , RP , I PART 


NE WOOOOOO 

00123 

26* 


COMMON /'LAM/ ILAMIN 


NEWOOOOOO 

00124 

27* 


COMMON /SAHA/ CPH( 50) , ICON, IPASS , I RITE , ITRCNT 

/SAHA/ 

OOOOOO 

00125 

28* 


COMMON /TEMCOM/ IDAT , IED , IND , IOR , IOUT , IRE , IROC , ISAV, ITA , ITE , 

/TEMCOM/ 

OOOOOO 

00125 

29* 


1 LIF(2), LLA, LLAW, LOT , MAIN, MOEG, MURD , NCH , NIT , NTOR ( 2 ) , NW(92 ) 

/TEMCOM/ 

OOOOOO 

00126 

30* 


COMMON /UNICOM/ UCD , UCE , UCL , UCM , UCP . UCR , UCS , UCT , UCV 

/UNICOM/ 

OOOOOO 

00127 

31* 


COMMON /WALTEM/ ALTAB( 1 53 ), ICOOL . I ENH( 306 ). TOLQW 

/WALTEM/ 

OOOOOO 

00127 

32* 

C 



OOOOOO 

00130 

33* 


INTEGER AREA , CQ , DENS , DI ST . ENERGY , FLUX , HEAT , HWALL .PRESS , RAD , RE Y , 

ANK 5/83 

OOOOOO 

00130 

34* 


1 SHEAR , SUBLT , TCON , TEMP , THRUST , VEL , VIS , XIPR 


OOOOOO 


J __J } ] J } _ J __ J ........ J . ) j 



i. i i \t r.i : j i - i i i i ! ■ i i i 

w w 1 w 1 


00130 

35* 

C 




000000 

00131 

36* 


DATA IDAT/5HDATA)/, IED/5HEDGE / , IND/ SHREW IND/ , I0R/2H0R/ , I OUT 

ANK 

7/83 

oooooo 

00131 

37* 


1 /6H0UTPUT/ , IRE/5HREAD( / , IR0C/6HR0G0UT/ , ISAV/5HSAVE / . ITA/6HTAPE ) 

ANK 

7/83 

oooooo 

00131 

38* 


2/, iTE/6HWRif E(/ . L I f74HPR6f , 4HI LE / . LLA/3HALL/ . LLAW/5HWAlL 7, 

ANK 

7/83 

oooooo 

00131 

39* 


3 L0T/6H PLOT / , MAIN/6HBLMAIN/ , M0EG/6HGE0M [ / , MURD/6H( DRUM /, 

ANK 7:/ 8 3 

oooooo 

00131 

40* 


4 NCH/6HPUNCH /.NIT/6H UNIT "/ , Nt 0R/4HC0NT . 4H0UR 7.NW/6H( 1H1 , 3 , 

ANK 

7/83 

oooooo 

00131 

41* 


5 60H7X, 9 THE FOLLOWING STORAGE UNITS ARE USED IN THE BLIMP PROGR, 

ANK 

7/83 

oooooo 

00131 

42* 


6 60HAM'///A6, '2 '.A6.A2.1X, A6.1X, A6,' A6, 2A6, , 

ANK 

7/83 

oooooo 

00131 

43* 


7 60H2A5 , ' , ' , A6 , ' ] ; ',A6,' t ' ,3A5, ' , ',A6,', ' , A6 , 2A4 , A5 , ' ] ; ' / , 

ANK 

7/83 

oooooo 

00131 

44* 


8 60H23X , A6 , ' £ ' , A6 . ' , ' ,A5, 2A4 , A5, ' j '//A6 , '3 ' , A6.A2.1X, A6. IX, . 

ANK 

7/83 

oooooo 

00131 

45* 


9 60HA6 , ' [ ' , A6 , ' ] ; ',A6,' [ ' , A6 , 2A5 , ' ] ; ' , A6 , ' [ ' , A6 . ' . '.3A5, 

ANK 

7/83 

oooooo 

00131 

46* 


A 60H ' ] ' 7/ A6 , '4 ' .-A6.A2, 1X.A6, IX, A6, ' £', A6 , A6 , ' £', , 

ANK 

7/83 

oooooo 

00131 

47* 


B 60HA6, 2A4, A5 , ']; A6 , ' £ ' , A6 , ' . A5, 2A4, A5 , ']'//A6,, 

ANK 

7/83 

oooooo 

00131 

48* 


C 60H'i6 ' , A6 , A2, A 6 , A5, 2A6 , '£', A6 , A3, A6, AS, 'j'77 A6, 

ANK 

7/83 

oooooo 

00131 

49* 


D 60HM5 A6, A2.1X, A6 , A5, A6 , IX, A6 , ' A6.A3.1X, A6 . A5 , . 

ANK 

7/83 

oooooo 

00131 

50* 


E 6H ' ] ' 7 )/ 

ANK 

7/83 

oooooo 

00157 

51* 


DATA NPCON , NSTP , NPLOT , I PLOT , NSTAT , I UNIT , I PUNCH, NPOINT ,IPP/16*1,5* 

ANK 

7/83 

oooooo 

00157 

52* 


1 2, 7* i ,2,2, 16*1 ,0, 1 ,'49*6,2 .3,3,467 . ELCON. ETA7 .44,0. , .002, .006, . 6 i , 

ANK 

7/83 

oooooo 

00157 

53* 


4 0.025,0.06,0. 15,0.35,0.60,0.80,1.0,1.35,1 .75,2.05,2.50/, 



oooooo 

00157 

54* 


5 F2FIX/0. 0,6. 05.0. 12,0.25.0.35,6.45,0.66,6.68.6.77,6.86.6.95,0.97, 



oooooo 

00157 

55* 


6 0.98.0.99, 1 . 0/ , MS/30/ , PNORM/ 1.0/, YAP/ 1 1 . 8230/ , 

ANK 

3/83 

oooooo 

00157 

56* 


i clnum/6. 61867 , sct , prt/2*o. 96/ , retr/6.67 , ratlim/o. so/ 



oooooo 

00204 

57* 


DATA IBODY/4/ , IDERIV, IDIFF/2, 2/, IETA, IFIT/ 1 , 1/ , IFLOW/2/ , IGUESS/O/ , 

ANK 

4/83 

oooooo 

00204 

58* 


1 If HERM, IWALL/2 . 2/ . JWALL , KEDGP , NTROPY/O, 1,6/ 

ANK 

8/83 

oooooo 

00221 

59* 


DATA F I TMOL/26 . 70/ , BASMOL/32 . 0/ , NETA/ 1 5/ , FFAR/O. 4890/ , 

ANK 

8/83 

oooooo 

00221 

60* 


3 SIGMA/3 . 4670/ , EPOVRK/ 106 . 70/ , KAPPA/ 11/, CBAR/O . 950/ , TOLOW/ 1 . OE-4? . 



oooooo 

00221 

61* 


0 ICON, I COOL , I PASS , ITRCNT , I TDK , NUL , IRITE , K0NRFT/6*0, 1,1/, 

ANK 

5/83 

oooooo 

00221 

62* 


K ST EF/4 . 7589 i05E- 13/ 

ANK 

5/83 

oooooo 

00244 

63* 


DATA AREA/ 12HS0. M SO. FT/ , C0/24H(d/KG DEG K)BTU/LB DEG R/ .DENS/ 12ANK 

5/83 

oooooo 

00244 

64* 


1HKG/M3 LB/FT 3/ , DIST/ 12HME TERS( FEET )/ , ENERGY/ 12H( d/KG )BT U/LB/ , FLUX/ 


oooooo 

00244 

65* 


3 12HKG/SM2LB/SF2/.HEAT/24H (WATTS/M2) BTU/SEC FT2 / , HWALL/ 12HWATTS 


oooooo 

00244 

66* 


4 BTU/S / . MASS/ 24H( KG/SEC-M2 ) LB/SEC SO FT/ , PRESS/ 1 2H(N/M2 )( ATM ) /, 



oooooo 

00244 

67* 


5 RAD/12Hd/S-M2B/SFT2/,REY/12H METER FOOT /, SHEAR/ 12H(N/M2 )LB/FT2/ , 



oooooo 

00244 

68* 


6 T CON/ 24H ( WATT S/M-K ) BTU/SEC FT R/ , TEMP/ i 2HDEG . KDEG . R/ t THRUST'/ 



oooooo 

00244 

69* 


7 1 2HNEWT0NP0UNDS/ , VEL/ 12HM/SEC FT/SEC/ , VIS/24H (N-SEC/M2 ) (LBM/SEC 


oooooo 

00244 

70* 


8 FT)/, XI PR/ 12H(KG/SE ( LB/SE/ 



oooooo 

00244 

71* 

C 

CONVERSION FACTORS SI UNITS TO BLIMP UNITS 



oooooo 

00270 

72* 


DATA UCD/6 . 2427962E -2/ , 'UCE/4 . 302 1 E -4/ , UCL/3 . 280839895/ . UCM/2 . 20462 


oooooo 

00270 

73* 


A26/ ,UCP/9 . 8692327 E -6/ ,UCR/8 . 8 1 14E-5/ ,UCS/ 2 .0885434E-2/ , UCT/ 1 . 80/ , 



oooooo 

00270 

74* 


B UCV/6. 671968995/ , CPFL/777 . 6486798 1 / , DPR/57 . 2957795/ . GC/32 . 1 74/ , 

ANK 

4783 

oooooo 

00270 

75* 


C PATM/ 14 . 696006/ , PI/3 . 14 15926536/ , RBAR/ 1 . 987 165/ , RVAR/ 1545 . 12/, 

ANK 

4/83 

oooooo 

00270 

76* 


6 SIPSF/ 144 .0/ 

ANK 

4/83 

oooooo 

00270 

77* 

C 

COMPOUNDS IN LOW TEMPERATURE EXTENSION ARRAY ARE: 1 = OH, 2 = H, 



oooooo 

00270 

78* 

C 

3 = H02 , 4 * H2 , 5 = H202, 6=0, 7 = 02, 8 = H20, 9 = N2, 10 = AR 


oooooo 

00312 

79* 


DATA CPL/3 . 6484 136,3. 9241834 , 3 .701756 , 2 . 5010504 , 2*2 . 5000943 , 



oooooo 

00312 

80* 


1 3 . 995642 , 4 . OOO 171,4. 0273454 , 3 . 608 1 553 , 3 . 3857279 ,3.3011 853 , 



oooooo 

00312 

81* 


2 4 . 0057066 , 4 . 0323777 . 4 . 43496 13,2. 6545354 ,2.85 10969 , 2 . 7345992 , 



oooooo 

00312 

82* 


3 3.4924125,3.50 14706 , 3 . 5029803 , 3 . 9553836 , 4 . 0062098 , 4 . 0102356 , 



oooooo 

00312 

83* 


4 3 . 4909028 . 3 . 5004642 , 3 . 5009674 , 2 . 5005472 . 2*2 . 500943 , 1 20*0 . O/ , 



oooooo 

00312 

84* 


5 SL/1 .7978376, 17.978376,20.62486, 1 . 1052932. 11.052932, 12.786054, 



oooooo 

00312 

85* 


6 2.2956322.22.956322,25.732639, 1.2102165,12. 102165, 14.349588, 



oooooo 

00312 

86* 


7 2.2422898,22.422898,25.320494, 1.6337344, 16.337344, 18.286352. 



oooooo 

00312 

87* 


8 2.0831 184,20.831184,23.258259, 1.8315539, 18.315539,21.093366, 



oooooo 

00312 

88* 


9 1 .9208269, 19.208269,21 .634841 , 1 .5879808, 15.879808, 17.612729, 120* 



oooooo 

00312 

89* 


AO. 0/ . HL/3589 .6616.39. 508546 ,21. 65648 , 25476 . 983 , 257 . 24587 , 



oooooo 

00312 

90* 


B 129.87094, 1317.4245, 17. 129931 , 10-570335.-1014.9283,-6.577269. 



oooooo 

00312 

91* 


C - 1 . 6682057 , - 1 767 1 . 426 ,-172. 7486 1 , -84 . 05693 ,29164. 349 , 294 .27148, 



oooooo 

00312 

92* 


D 1 48 . 53824 , - 1040 . 7087 , -6 . 949599 , - 1 . 7235669 , -30272 . 845 , -298 . 8 1 263 , 



oooooo 

00312 

93* 


E -147. 40094 , - 1039 .3515,-6. 93752 1.-1. 7185286 , -742 . 9332 , -4 . 9537909 . 



oooooo 

00312 

94* 


F - 1 . 2268734 ,120*6.6/. TL/50* 1.6, 50* 100 . 6 , 50*266. 67 , ILSP/56*37 , 



oooooo 



00312 

00312 

00312 

95* 

96* 

97* 


G SUBLT/6H0H ,6HH .6HH02 .6HH2 .6HH202 ,6H0 

H 6H02 , 6HH20 ,6HN2 , 6HAR ,90*6H /.NLTSP/10/, 

I IADD.INEW/1 1*0/ 

OOOOOO 

OOOOOO 

OOOOOO 

00312 

00324 

98* 

99* 

C 

DEFAULT VALUES FOR ROUGHNESS OPTION 
DATA FMF/1 . 15/, ICF/O/ , RK/O. 0/ 

NEWOOOOOO 

NEWOOOOOO 

00324 

00330 

100* 

101* 

c 

DEFAULT VALUES FOR PARTICLE OPTION 

DATA I PART/O/ , RP/O. / , WP/O./ ,WF/ 1 ./.CPART/O./, RHOPA/O. / 

NEWOOOOOO 

NEWOOOOOO 

00330 

00337 

102* 

103* 

c 

DEFAULT VALUES FOR RE LAMINAR I ZAT I ON OPTION 
DATA ILAMIN/O/ 

NEWOOOOOO 

NEWOOOOOO 

00341 

104* 


END 

OOOOOO 


END OF COMPILATION: 


NO DIAGNOSTICS. 





1 


J 


i 


.] 1 



J 


.] 


] 



] 


““l ] 


@’SYS$*MSFCFOR$ . FOR , WUS BLMAIN 

HSA E3 -12/10/84-22:23:51 (22,23) 

-34 


COMMON/ ACCN/ACCPK , ILAM, SPCT 
COMMON/ RETH/RETHMO 

COMMON/ RUF/DUMM 1 , DUMM2 , DUMM3 , DUMM4 , DUMM5 , DUMM6 , DUMM7 , DUMM8 , DUMM9 , 
$ DUMM10, DUMM 1 1 , DUMM1 2 , RK , ICF , FMF , DUMM 16 , DUMM1 7 , DUMM 18 

COMMON/ PART I /PART M , DUMM24 , RHOPA , DUMM23 , CPART , WP , DUMM 19 , WF , 
$ DUMM22 , DUMM20 , DUMM2 1 , I LT , PF , AK , RP , I PART 

COMMON /LAM/ ILAMIN 
COMMON/ RUF3/UT AU , DEACY 

-97 

$ I PART .RP.WP.WF, RHOPA , CPART , I LAMIN . 

-98,98- 

/ZP 

/ZP 

, FMF, ICF , RK/ 

MAIN PROGRAM 

STORAGE 

USED: CODE ( 1 ) 000576; DATA(O) 002046; BLANK C0MM0N(2) OOOOOO 

COMMON 

BLOCKS 


0003 

AL 

000002 

0004 

0005 

BLOCOM 

CARDS 

002043 

000077 

0006 

0007 

COEFFS 

CRBCOM 

002354 
0001 1 1 

OOIO 
OOI 1 

EDGCOM 

EPSCOM 

001217 

000045 

0012 

0013 

EQPCQM 

EQTCOM 

002433 

000243 

0014 

0015 

ETACOM 

INPUTI 

002631 

000015 

0016 

0017 

INTCOM 

INTERI 

000123 

000007 

0020 

0021 

LOWTH 

NONCOM 

001372 

035230 

0022 

0023 

PLOTS 

PRMALS 

000172 

000243 

0024 

0025 

PRMORG 

RFTCOM 

000455 

000045 

0026 

0027 

ACCN 

RETH 

000003 

OOOOOI 

0030 

0031 

RUF 

PARTI 

000022 

000020 

0032 

0033 

LAM 

RUF3 

OOOOOI 

000002 

0034 

0035 

SAHA 

SAVE 

000151 

OOOOIO 

0036 

0037 

SAVEOL 

SAVHIS 

000005 

000475 

0040 

0041 

SAVMAT 

SAVNCR 

000056 

000175 

0042 

0043 

SAVOUT 

SAVTBL 

00002 1 
000067 

0044 

0045 

savtrm 

STTCOM 

000020 

000044 

0046 

0047 

TEMCOM 

VARCOM 

000162 

000645 

0050 

WALL 

001212 



0051 


WALTEM 001372 


EXTERNAL REFERENCES (BLOCK, NAME) 

0052 


LTCPHS 


















0053 


SETUP 


















0054 


ITERAT 


















0055 


OUTPUT 


















0056 


SATEMP 


















0057 


ROCOUT 


















0060 


PLOT 


















0061 


EXIT 


















0062 


NINTR$ 


















0063 


NWDU$ 


















0064 


NI03$ 


















0065 


NI 0 1 $ 


















0066 


NI02$ 


















0067 


NRDU$ 


















0070 


NRNL$ 


















0071 


NWNL$ 


















0072 


NREW$ 


















0073 


NWBU$ 


















0074 


NSTOP$ 


















STORAGE 

ASSIGNMENT (BLOCK, TYPE. RELATIVE LOCATION, NAME) 










OOOO 


002000 

IF 

OOOI 


000533 

15L 

OOOO 


002016 

2F 

0001 


000236 

25L 

OOOO 


002001 

3F 

OOOI 


000334 

30L 

0001 


000262 

347G 

OOOI 


000371 

35L 

OOOI 


000310 

361G 

0001 


000443 

4 1 L 

OOOI 


000445 

43L 

OOOI 


000401 

45L 

OOOI 


000137 

46L 

OOOI 


000550 

SOL 

0026 


OOOOOO 

ACCPK 

0031 


000015 

AK 

0047 

R 

OOOOOO 

ALPH 

0051 

R 

OOOOOO 

ALTAB 

OOOO 

R 

000033 

AMNFS 

OOOO 

R 

000030 

AMNO 

0000 

R 

000032 

AMNOS 

OOOO 

R 

000031 

AMWP 

OOOO 


001677 

ARRAYS 

0007 

I 

OOOOOO 

ASU 

0012 

I 

OOOOOO 

ATA 

0012 

I 

OOOO 10 

ATB 

0012 

I 

000020 

ATC 

0012 

R 

000030 

BASMOL 

0014 


000321 

BA 1 

0014 


001727 

BA2 

0044 


OOOOOO 

BC 

0040 


OOOOOO 

BE 

0044 


000010 

BLNK 

0014 


000072 

BONE 

0007 

I 

000003 

BSU 

0040 


OOOO 10 

BY 

0036 


OOOOOO 

B 1 

0014 


OOOI 10 

B2 

0016 

I 

OOOOOO 

CASE 

0016 

R 

000015 

CBAR 

0043 


OOOOOO 

CL 

001 1 

R 

OOOOOO 

CLNUM 

OOOO 

R 

000034 

CMR 

0006 

R 

OOOOOO 

COEF 

0051 

R 

000062 

COEFCL 

0041 


OOOOOO 

CORMA 

0023 


OOOOOO 

COSALF 

0031 

R 

000004 

CPART 

0034 


OOOOOO 

CPH 

0020 

R 

OOOOOO 

CPL 

0051 

R 

000063 

CPLTAB 

OOOO 


000075 

DATA 

0043 


OOOOOI 

DCLNUM 

0014 


000054 

DCU 

0033 


OOOOOI 

DEACY 

0043 


000002 

DELCON 

0023 


000062 

DELTBD 

0043 


000003 

DEPC 

0014 


000017 

DETA 

OOI 1 


OOOOOI 

DL 

0037 


OOOOOO 

DLX2 

0021 

R 

OOOOOO 

DPDX 

0043 


000004 

DPI 

0010 

R 

OOOOOO 

DSIP 

0014 


000036 

DSO 

0005 

R 

OOOOOO 

DUB8 

0021 

R 

002734 

DUDX 

OOIO 


000062 

DUEDGE 

0021 


005670 

DUM 

0030 


OOOOOO 

DUMM1 

0030 


OOOOI 1 

DUMM10 

0030 


000012 

DUMM1 1 

0030 


000013 

DUMM12 

0030 


000017 

DUMM16 

0030 


000020 

DUMM17 

0030 


00002 1 

DUMM18 

0031 


000006 

DUMM19 

0030 


OOOOOI 

DUMM2 

0031 


OOOOI 1 

DUMM20 

0031 


000012 

DUMM2 1 

0031 


OOOO 10 

DUMM22 

0031 


000003 

DUMM23 

0031 


OOOOOI 

DUMM24 

0030 


000002 

DUMM3 

0030 


000003 

DUMM4 

0030 


000004 

DUMM5 

0030 


000005 

DUMM6 

0030 


000006 

DUMM7 

6630 


000007 

DUMM8 

0030 


OOOOIO 

DUMM9 

0041 


OOOOOI 

DVNL 

0043 


000042 

DVS 

0021 


010624 

DXDS 

0040 


000020 

EB 

0040 


000030 

EBL 

0040 


000040 

EES E 

001 1 

R 

000020 

ELCON 

0007 


000006 

EMIS 

0007 


000007 

EMISC 

0007 

R 

OOOOIO' 

EMIST 

0007 

R 

OOOOI 1 

EMIV 

0051 

R 

000145 

ENHTAB 

0042 


OOOOOO 

ENTHAL 

0040 


000050 

EP 

0012 

R 

00003 1 

EPOVRK 

001 1 


00002 1 

EPSA 

0043 


000043 

EPS 1 

0014 

R 

OOOOOO 

ETA 

0047 

R 

OOOOOI 

F 

0012 

R 

000032 

FF 

0005 

R 

OOOOOI 

FEAR 

0005 

R 

000002 

FITMOL 

OOOO 

R 

000026 

FK 

0045 


OOOOOO 

FLD 

0022 

I 

OOOOOO 

FLDX 

0051 

R 

000227 

FLMASS 

0050 

R 

OOOOOO 

FLUX J 

0030 

R 

000016 

FMF 

0004 


OOOOOO 

FR 

OOOO 

R 

'666666 

FUEL 

0050 


000226 

FW 

0025 

R 

OOOOOO 

F2FIX 

0025 

R 

000017 

F2FIXT 

0047 

R 

000075 

G 

0045 


000025 

GAM 1 

0023 

R 

000144 

GE 

0010 


000063 

GEP 

0012 

R 

000126 

GG 

0047 

R 

000075 

GW 

0037 


OOOOOI 

HALPH 

0007 


000014 

HCARB 

0036 


OOOOOI 

HCH 

0007 

R 

000015 

HCHAR 

OOIO 


000064 

HE 

OOOO 

R 

000023 

HFU 

0037 


000002 

HGP 

0020 

R 

000226 

HL 

OOOO 

R 

000024 

HOX 

0007 


000020 

HPG 

0007 

R 

000021 

HPYG 

0037 


000057 

HSP 

0007 

R 

000024 

HTEF 

0050 

R 

000310 

HW 

0016 


000016 

I 

0020 

I 

000454 

I ADD 

005 1 

I 

000230 

I AREA 

0015 

I 

OOOOOO 

IBODY 

0030 

I 

000015 

ICF 

0034 

I 

000062 

ICON 

0051 

I 

000231 

ICOOL 

0041 


000174 

ICORM 

0024 


OOOOOO 

ID 

0046 

I 

OOOOOO 

I DAT 

0015 

I 

OOOOOI 

IDERIV 

0015 

I 

000002 

IDIFF 

0046 

I 

OOOOOI 

I ED 

0051 

I 

000232 

IENH 

0015 

I 

000003 

I ETA 

0012 


000222 

IFC 

0040 


000051 

IFCdC 

_jV 


J 

1 

7 


J 

J 

J 

1 


J J 

I 

J 

T 

— J 

\ 

J 


! 

; 

j •- , 



] ~ : i ] r~/i ) ~i ~n — i ~ ] i -~i 



0015 I 000004 I F IT 0015 I 000005 IFLOW 0005 I 000003 IFRAC 0015 I 000006 IGUESS 0026 000001 I LAM 

0032 I OOOOOO ILAMIN 0020 I 000455 ILSP 0031 000013 ILT 0046 I 000002 IND 0020 I 000537 INEW 

0035 OOOOOO INT 0046 I 000003 IOR 0046 I 000004 IOUT 0023 I 000145 IP 0031 I 000017 IPART 

003 4 I 00006 3 I PASS 0003 I 666666 IP LOT 0022 I "666630 IPP 0023 I 666 1 4 6 I PU NC H 0016 T "'000017“ IQ 

0012 000316 IR 0046 I 000005 IRE 0034 I 000064 IRITE 0046 I 000006 IROC 0016 I 000020 IS 

0046 I* 066667 ‘ ISAV 0016 I 66662 T ISH 0023'"i'"666l47'“isf 0007 ’ 000025 ISU 

0046 I 000010 ITA 0051 I 000233 ITCOOL 0015 I 000007 ITDK 0046 I 000011 ITE 0005 I 000004 ITEMP 

0036 600602 if FF 66i5'T"6666f6"i*fH^RM 665ri’*'66o234"ifHick 665i i 666235 ifL 6634 666665 if rcnt 

0016 000022 ITS 0023 I 000150 IU 0003 I OOOOOI IUNIT 0015 I OOOOI 1 I WALL OOOO I 000027 J 

‘6640 666652 jj ooW'Y'ooooiYWall 66 i 6 i 66662 3 kappa 6625 666636 kappal 6625 i 066637 kappat 

0012 I 000326 KAT 0017 OOOOOO KBC 0017 OOOOOI KCC 0015 I 000013 KEDGP 0016 I 000024 KONRFT 

6617" T* 666663 koio 6017 666662 kq9 0036 666663 kr2 oo'ie i 06602s kR9 boofY'ooooW'KS 

0017 000004 KSB 0017 000005 KSOL 0025 I 000040 KTURB 0017 000006 KT 8 0005 I 000005 KU 

005 i R 6662 3 6 L AMD AW 0012 000336 LAMI 6651 R 666237 LAM 0014 660126 LAR 0004 I 66 1 606 L E F 

0004 001616 LEFS 0004 001626 LEFT 0004 001636 LEFW 0046 I 000012 LIF 0046 I 000014 LLA 

0046 I '"6666 15 "'ll aw 0046 i 6666 1 6 lot 6666 L 6666 i 6 lo wf 6664 001664 L2 6664 * ooi 605 L3 

0046 I 000017 MAIN 0016 000107 MAT1I 0016 OOOI 10 MAT 1 U 0016 OOOIII MAT2I 0004 001646 MOA 

6664 001742 "mob * 6646 i 666626 mo eg '6666‘"'R‘‘6666'r7''ii(iR 6622 i 06663 i ms 6646 i 666621 mur'd 

0016 I 000112 MWE 0005 I 000006 N 0016 000113 NAM 0045 I 000026 NC 0000 I 000020 NCASE . 

004 6 1 66662 2 NC H 0036 ‘666664 NCV * 66 T:T*l' ’600432''NEL 66 l 6 ”‘i' 666 1*1 4 NETA 0025 666641 NET AL’* 

0025 I 000042 NETAT 0005 I 000007 NFF 0046 I 000023 NIT 0020 000551 NLTSP 0016 000115 NNLEQ 

66 i 6 i 666 i i 6 non 6666 iooooWW 662YY"o6663YWcqh 6622 i 666633 nplot ooiYY'ooooAYNPoim 

0016 000117 NRNL 0016 I 000120 NS 0034 I 000066 NSJ 0016 I 000121 NSP 0004 002036 NSPEC 

o‘oi6 666 ‘ 122 'NSPMi 6622 *T ‘'66667’i"NST if 6622 ‘i‘" 666 i 5 6666 i 66662 Vntal 6623 ' i' 666 isi nth 

0046 I 000024 NTOR 0015 I 000014 NTROPY 0046 I 000026 NW OOOO R 000025 OK OOOO 001106 OUT 

6666 r 600007 ox 6612 666433 p 6631 666666 ' part M 6623 R 660152 pchamb 6616 6666 65 pe 

0031 000014 PF 0004 002037 PIEASE 0043 000044 PIM 0021 R 013560 PITAB 0043 000045 PM 

0023 R 666 i 5 3 P NORM 0045 "R" "666627" PRA 004 5 R " 666636 " PRB 0045 R 666631 PRC 0045 R^ 666632 ‘ PRD 

0045 R 000033 PRDUM 0024 R 000063 PRE 0011 R 000040 PRT 0013 000074 PVMW 0013 000120 PVOL 

0034 000067 6 WG 0023 R 666 1 56 RAD F L 0024 R 000145 RADR 0024 000227 RADS 0023 000154 RAD5 

0023 000155 RAD 6 0025 R 000044 RATLIM 0051 R 000321 RECOFT 0043 000046 RED 0027 OOOOOO RETHMO 

OOI i R "666641 RETR 6016 6661*47 RHOE 0031 R 666662 RHOP A 66 Ti 666642 RHOVS 0050 R 66637 2 RHOV W 

0030 R 000014 RK 0024 R 000311 ROKAP 0031 R 000016 RP 0023 R 000157 RTM 0024 R 000373 S 

OOI I R 666043 SCT 0035 OOOOOI SORHOH 0035 666662 SDRHOK 0012 R 000434 SIGMA * 0020 R 666552 SL 

0047 R 000152 SP 0026 000002 SPCT 0010 000231 SPE 0005 000072 SPL 0005 000073 SPU 

6650 R 6064 54 " s p w 6667 666116 Stef 66 2 6 i 6 6 1 6 66 sub Of 6623 660160 sumog 6612 666435 "f" 

0010 000705 TE 0012 R 001006 TF 0051 R 000322 THITAB 0051 000404 TI 0013 R 000144 TJ 

0005 R 6666 74 Td A OOI 2 *’*R* *6664*36 T K P 66 13 R 66 6 1 4 7 T K T 0020 R 001144 TL 0051 R 660466 TLiNP " 

0051 R 000632 TLTAB 0051 R 000714 TOLQW 0012 000526 TQ 0045 000034 TR 0043 000047 TREF 

66i6 666767 t f vc * 6612 666616 fu 655 ^ Tr ''’0667 is'Tuben 6616 666776 fvcc 6656 R 661136 tw 

OOIO 001052 UE 0042 OOOOOI UKAPPA 0033 OOOOOO UTAU 0021 016514 V A 0043 000050 VINTR 

0021 R 6 2 i 4 50 VI T A B 0045 R 6666 3 7 V MU A 0045 R 666646 “VMUB "6045' "r" ^ 666641 VMUC 0045 R 666042 VMUD*'" 

OOIO 001134 VMUE 0045 000043 VMWD 0010 001216 VMWE 0012 001102 VN 0012 001176 VNU 

0021 024404 VS 6664 662040 'tf 0042 666620 WALLA 0012 R 002136 WAT * 0031 R 666667 ’’¥f 

0012 002146 WM 0013 R 000217 WMS 0031 R 000005 WP 0012 002147 WTM 0051 R 000716 XAREA 

005 i r 66 i 666 x e nh 6621 r 62 7346 x i t ab oosT'r '‘' 66'i662''xLfAB 6623 006161 xsf 6651' * R 061226 xt H ik " 

0012 002243 Y OOII R 000044 YAP 0021 R 032274 YITAB . 0012 002337 YW 0051 R 001310 ZMUTAB 

' 6666 ‘‘r*‘* 666622 *’zp 


ooioo 

1 * 

CBLIMP 

BOUNDARY LAYER INTEGRAL MATRIX PROCEDURE 

BLIM OOI 

OOOOOO 

OOIOO 

2* 

C 



OOOOOO 

OOIOI 

3* 

COMMON 

/AL/ IPLOT, IUNIT 

/AL/ 

OOOOOO 

00103 

4* 

COMMON 

/BLQCOM/ FR(60, 15) , L2 , L3 . LEF(8 ) . LEFS (8 ) , LEFT(8) , LEFW(8 ) . 

/BLQCOM/ 

OOOOOI 

00103 

5* 

1 

M0A(60) ,M0B(60) .NSPEC, PIEASE. W(3) 

/BLQCOM/ 

OOOOOI 

00104 

6* 

COMMON 

/CARDS/ DUB8 , FF AR , F I TMOL , I FRAC . ITEMP .KU .N.NFF . NP( 50) , SPL , 

/CARDS/ 

OOOOOI 

00104 

7* 

1 

SPU,TUA(3) 

/CARDS/ 

OOOOOI 

00105 

8* 

COMMON /COEFFS/ C0EF(7,3,6O) 

/COEFFS/ 

OOOOOI 



00106 

00106 

00107 

00107 

00110 

00111 

00111 

ooYiT 

00112 

60113 

001 13 
66114 

00114 
00115 “ 

00115 
001 * 16 " 
00117 
001 * 17 “ 
00120 

66126 
00121 
66122 
00122 
66123' 

00124 

66124 

00125 
66 126 
00127 

66127 

00130 

66136 

00131 
66132 
00133 

66134” 

00135 

00136 

00137 

66146 

00141 
66142 " 

00142 

66143 

00144 

66144 

00145 

66145' 

00146 

66147 

00150 

00150 

00150 

00150 

00150 

66156' 

00150 

66156 

00150 

66156 


9 * 

10 * 

11* 

12 * 

13 * 

14 * 

15 * 

16 * 

17 * 

18 * 

19 * 

"26* 

21 * 

22 * 

23 * 

24 * 

25 * 

26 * 

27 * 

" 28 * 

29 * 

30 * 

31 * 

32 * 

33 * 

‘ 34 * 

35 * 

36 * 

37 * 

38 * 

39 * 

” 40 * 

41 * 

42 * 

43 * 

” 44 * 

45 * 

” 46 * 

47 * 

48 * 

49 * 

“ 50 * 

51 * 

52 * 

53 * 

* 54 * 

55 * 

56 * 

57 * 

” 58 * 

59 * 

60 * 

61 * 

62 * 

63 * C 

64 * C 

65 * C 

66* C 

67 * C 

68* C 


COMMON / CRBCOM/ ASU( 3 ) . BSU( 3 ) , EMI S , EMISC , EMI ST , EMI V( 3 ) , HCARB . /CRBCOM/ 

1 HCHAR ( 3 ) f HPG , HPYG( 3 ) , HTE F , I SU . KS ( 50 ) , STE F /CRBCOM/ 

COMMON /EDGCOM/ DSIP( 50) , DUEDGE ,GEP ,HE , PE(50) , RH0E(5O) , SPE (6 , 50) , /EDGCOM/ 

1 TErSOjTff^ '/EDGCOM/ 

COMMON /EPSCOM/ CLNUM , DL( 15 ) , ELCON, EPSA( 15 ) , PRT , RETR , RHOVS , SCT , YAP/EPSCOM/ 
COMMON/ EOPCOM/AT A( 8), ATB( 8 ), ATC ( 8)1 BASMOL 6ep6v RK,F F( 60), 66(60) 7"/E6pc6m/ 

1 I FC ( 60) , IR( 8 ) , KAT ( 8 ) , LAMI ( 60) , NEL , P , SIGMA , T , TKP( 8 ,7),TQ(8,7), /EQPCOM/ 

2 T U ( 60 , 3 ) , V N ( 60 ) , VNU ( 60 ^ 8 ) ", W A T ( 8 ) , WM VWTM ( 60) , Y ( 60 7 , Y W ( 60) /EOPCOM/ 

COMMON/EOTCOM/ 1 SN( 3 , 20) , PVMW( 20) . PVOL ( 20 ) , T J ( 3 ) # TKT ( 20,2). WMS ( 20 ) / EQTCOM/ 

COMMON /ETACOM/ ET A ( 1 5 ) | D E T A (15) 76 SO ( i 4 ) V6cU 6l 4 ) . BON E (14 j , B2 (1 4 ) 7 **"/ E ATCOM/ 

1 LAR( 123), BA 1(43, 18) ,BA2(30, 15) /EATCOM/ 

COMMON /INPUT^/ IBODY, I* DERI V t IDI FF,IET aViFI T.TFLOW ,IGUES S ,1 TDK, '/INPUT I /” 

1 ITHERM, I WALL , JWALL , KEDGP , NTROPY /INPUTI/ 

COMMON /f NTCOM/ CASE (1 3),CBA R,I, 10,1$ I SH , I T S .KAPPA kON FT K R 9 ( 50) / I NTCOM/ 

1 . MAT 1 1 , MAT 1 J , MAT2 1 , MWE , NAM . NET A . NNLEO , NON . NRNL , NS . NSP , NSPM 1 / 1 NTCOM/ 

COMMON / INTER 1/ KBC ”^ 6^ KSB i K SO L ”, KT 8 /iNT ERI/ 

COMMON /LOWTH/ CPL( 3 , 50) , HL( 3 . 50) . I ADD , I LSP( 50) , INEW( 10) , NLTSP , /LOWTH/ 

1 S L ( 3 , 50 ) 'i SUB L T ( 50,2 ) [T L ( 50 , 3 ) /LOWTH/' 

COMMON /NONCOM/ DPDX( 1500) ,DUDX( 1500) ,DUM( 1500) ,DXDS( 1500) , PI TAB( /NONCOM/ 

11 500 ) ", V A ( 1 566)7 VI TAB* ( i 500 ) j VS (1500 ) ,X I T A B ( 1 500 ) V Y I T AB ( 1 5*66") /NONCOM/ 

COMMON/PLOTS/ FLDX( 12 , 2 ) , I PP . MS , NPCON , NPLOT( 30) , NSTAT( 50) , NSTP ( 15) /PLOTS/ 

COMMON/PRMALs/COSALF^^ /PRMALS/ “ 

1 PCHAMB , PNORM , RAD5 , RAD6 , RADFL , RTM , SUMOG , XST ( 50 ) /PRMALS/ 

COMMON 7 P R MO R 6/ ID ( 5 1) , P RE( 50 j , R AD 6(50 ) 7 R ADS (50 ) ” R 6 K A P ( 50 j , S ( 50 ) /PRMORG/' 

COMMON /RFTCOM/ F2F IX( 15),F2FIXT( 15) ,K APPAL , KAPPAT , KTURB , NETAL , /RFTCOM/ 

1 NET AT , NP 0 1 NT , R A T L I M /RFTCOM/” 

COMMON/ ACCN/ACCPK , I LAM , SPCT 

COMMON/R^ 

COMMON/RUF/DUMM 1 , DUMM2 , DUMM3 , DUMM4 , DUMM5 , DUMM6 , DUMM7 , DUMM8 , DUMM9 , 

$ “DUMMidVoum^ 

COMMON/PART I /PARTM , DUMM24 , RHOPA , DUMM23 , CPART , WP , DUMM 1 9 , WF , 

$ DUMM2276 U MM 20 , D U MM 2 T ,1 LT , P F j AK, R P , I PART 

COMMON /LAM/ ILAMIN 

c6mmon/rW^ 

COMMON /SAHA/ CPH(50 ) , ICON, I PASS , IRITE , ITRCNT ,NSU, QWG(50) /SAHA/ 

COMMON / SAVE /I NT , SDRHOH” SDRTO '/SAVE/ 

COMMON / SAVEQL/ B 1 , HCH , ITFF , KR2 , NCV /SAVEQL/ 

COMMON “7 S A VHl'S /”*D LX2 7 H A L PH "7HGP ( *1 5 V 3 )7 HS P ( "i*5* i*3 ",*6* ) /SAVHiS/ 

COMMON /SAVMAT/ BE ( 8 ) , BY( 8 ) , EB ( 8 ) , EBL( 8 ) , EESE ( 8 ) , EP . I FC JC , J J ( 4 ) /SAVMAT/ 

COMMON / S A VNC R/ COR M A , D VN L ( 1 2 3 ) j I CO RM /SAVNCR/' 

COMMON /SAVOUT/ ENTHAL , UKAPPA( 1 5 ) , WALLA /SAVOUT/ 

COMMON 7 S A VT B L/ C L ", 6 C LNUM , D E L CON , D E P C , DP I ( 15 i 2 ) i D VS \ E PS 1 , P I M , PM ^ /SAVTBL/* 

1 RED , TREF , VINTR( 15) /SAVTBL/ 

COMMON " S AVT RM/*' BC*J 8 y *,* B LNK*f 8 ) / SAVTRM/ 

COMMON / STTCOM/ FLD(7 , 3) ,GAM1 ,NC , PRA, PRB, PRC.PRD.PRDUM, TR(3) , /STTCOM/ 

1 VMU A j VMUB , VMUC , VMUD * VM WD / STTCOM/ 

COMMON /TEMCOM/ IDAT , I ED , IND , IOR , IOUT , IRE , IROC , ISAV , ITA , ITE , /TEMCOM/ 

. ^ . L ^ - y - — l a • j, L aw . Lot , m a i n 7 mo e g . mu r d 7nc h 7Ki t” nt or (2 ) * n w ( q 2 j /temcom/ 

COMMON /VARCOM/ ALPH, F( 15 , 4 ) ,G( 15 , 3) . SP( 15 , 3 , 7) /VARCOM/ 

COMMON / W ALL / F L U X J ( 3 , 50) , F W ( 5 6 ) ” H W ( 50 ) , R HO V W ( 50 ) , S P W ( 6 ” 50 ) 7 T W ( 50 ) / WALL / 

COMMON /WALTEM/ ALTAB ( 50) , COEFCL , CPLTAB( 50) , ENHTAB( 50) . FLMASS , /WALTEM/ 

1IAR EA.I COOLilE NH.lf COOL/if HICKVIT LINP.L ,LAMT AB (50) ^ RE CO FT , /WALTEM/' 

2 THI TAB( 50) , TI ( 50) t TLINP( 100) , TLTAB( 50) . TOLOW, TUBEN,XAREA( 50) , /WALTEM/ 

3 X E NH ( 50 ) V X LT AB ( 1 0OTJ "xTHIK" (SO)**,* ZMU T AB ( 50 ) * /WALTEM/ 


ORDER OF PARAMETERS TO BE PLOTTED: 1 PRESSURE. 2 EDGE TEMPERATURE, 

3 VELOCITY, 4 MACH NUMBER, 5 DENSITY, 6 TOTAL ENTHALPY, 7 TOTAL HEAT, 

8 T 6 T AL WALL ARE A ,9 MOM ENT UMTH ICK N E SSV 1 6 D ISP LACEM ENT THI CKNE S S , 

11 THRUST LOSS, 12 WALL TEMPERATURE, 13 SHEAR AT WALL, 

14 A CC E L E RYt I ON M R /‘‘‘i 5 " Vi* 5 CO S I T y 7 * “ 1 * 6 * ’SPECIF I C ’* HE AT 


OOOOOI 

000001 

OOOOOI 

666661 

OOOOOI 

666661 

OOOOOI 

666661 

OOOOOI 

666661 

OOOOOI 

066661 

OOOOOI 

666661 

OOOOOI 

666661 

OOOOOI 

666661 

OOOOOI 

666661 

OOOOOI 

666661 

OOOOOI 

660661 

OOOOOI 

666661 

NEW 000001 

NEWOOOOOi 

NEWOOOOOI 

NEWOOOOOI 

NEWOOOOOI 

NEWOOOOOi 

NEWOOOOOI 

NEWOOOOOI 

OOOOOI 

066661 

OOOOOI 

666061 

OOOOOI 

666661 

OOOOOI 

66666*1 

000001 

666661 

000001 
"06666 1 

OOOOOI 

666661 

OOOOOI 

660661 

OOOOOI 

666661 

OOOOOI 

666661 

OOOOOI 

666661 

OOOOOI 

666661 

OOOOOI 

666661 


J 


J 


J 


] 


] 


.... ? . ... J 


J 


J 


] 



■] 1 } ' ] — I ■”“} ] 1 ] 



00150 69* C 17 THERMAL CONDUCTIVITY, 18 WALL LENGTH. 19 CONDUCTIVE HEAT FLUX, OOOOOI 

00150 70* C 20 INVISID MASS FLOW, 21 TOTAL MASS FLOW, 22 BETAP, 23 BETAV, OOOOOI 

00150 71* C 24 MOMENTUM TRANSFER COEFFICIENT. 25 HEAT TRANSFER COEFFICIENT, OOOOOI 

00156 72* C 26 X I, 2 7 TO T A L GAS FLUX , 2 8 TOT A LG AS B LOWING P A R AME T E R i OOOOOI 

00150 73* C ORDER OF PROFILE PLOTS: 1 TEMPERATURE, 2 VELOCITY RATIO, 3 MACH NUMBER, OOOOOI 


00150 74* C 4 DENSITY. 5 VISCOSITY, 6 SPECIFIC HEAT. 7 STATIC ENTHALPY, OOOOOI 

00150 75* C 8.JPJAL ..ENTIHAL^ OOOOOI 


00150 

76* 

C 


11 SHEAR, 12 ETA, 13 GAMMA, 14 PITOT TUBE PRESSURE. 


OOOOOI 

00150 

77* 

C 


NOTE FOR PLOTTING PURPOSES THE FOLLOWING VALUES OF IP AND THEIR 


OOOOOI 

00150 

78* 

C 


CORRESPONDING CHARACTERS ARE GIVEN: 35 = (PLOTTING DOT), 43 = (SMALL 

OOOOOI 

00150 

79* 

C 


CIRCLE), 34 = +, 5 = (BLANK), 40 = * , 20 = 0, 48 = 0, 39 = $ , 23 

= 0. 

OOOOOI 

00150 

80* 

c 


62 = (SMALL SQUARE), 61 = (PERIOD), 46 = .(COMMA), 33 = - , 58 = ' 

, 

OOOOOI 

00150 

81* 

c 


36 = =, 3 AND 4 GIVE SMALL CIRCULAR SYMBOLS. 


OOOOOI 

00150 

82* 

c 


COMPOUNDS IN LOW TEMPERATURE EXTENSION ARRAY ARE: 1 = OH. 2 = H, 


OOOOOI 

00150 

83* 

C 


3 = H02 , 4 = H2 , 5 = H202, 6=0. 7= 02, 8= H20. 9 = N2 , 10 = AR 

OOOOOI 

00150 

84* 

c 




OOOOOI 

00151 

85* 



DIMENSION FUEL(7 ) , 0X( 7 ) , TF ( 60) 

ANK 5/83 

00000 1 

00152 

86* 



EQUIVALENCE (G.GW) , (fU( 121 ) ,TF) 

ANK 4/83 

OOOOOI 

00153 

87* 



INTEGER ASU , ATA , ATB , ATC , BSU , CASE , FLDX , SUBLT 


OOOOOI 

00154 

88* 



LOGICAL LOWT 


OOOOOI 

00155 

89* 



REAL L AMD AW , LAMTAB , MR 

ANK 4/83 

OOOOOI 

00156 

90* 



DATA FUEL . MR , OX/ 15*6. 6/ , LOWT/F/, NCASE , NT aL/6,6/ , ZP/ - 1 . 67 

ANK 7/83 

OOOOOI 

00156 

91* 

c 




OOOOOI 

00166 

92* 



NAME LI ST /DATA/ ALPH , ALTAB , ASU , ATA , ATB , ATC , BASMQL , BSU , CB AR , CLNUM , 

/data 7 

OOOOOI 

00166 

93* 


1 

COEF , COEFCL . CPL , CPLTAB . DPDX . DSIP , DUB8 , DUDX , ELCON . EMI ST , 

/ DATA/ 

OOOOOI 

00166 

94* 


2 

EMI V , ENHTAB , EPOVRK , ETA , F . FF , FFAR . F ITMOL , FLDX , FLMASS , 

/data/ 

OOOOOI 

00166 

95* 


3 

FLUXd , FUEL , F2F IX , F2FIXT , G , GE , GG , GW , HCHAR , HFU , HL , HOX , HPYG , HTEF 

, /DATA/ 

OOOOOI 

00166 

96* 


4 

HW , I ADD , I AREA , I BODY , I COOL , IDERI V, IDIFF . IENH, IETA . IF IT , 

/data/ 

OOOOOI 

00166 

97* 


5 

I FLOW, IFRAC, IGUESS, I LSP, INEW. IP, I PLOT, IPP, I PUNCH, ISN, 

/DATA/ 

OOOOOI 

00166 

98* 


6 

1ST, ITCOOL, ITDK, ITEMP, ITHERM, I THICK , ITLINP , IU , IUNIT , 

/DATA/ 

OOOOOI 

00166 

99* 


7 

I WALL , JWALL , KAPPA . KAPPAT , KAT , KEDGP , KONRFT , KR9 , KS , KTURB , 

/DATA/ 

OOOOOI 

00166 

lOO* 


8 

KU , LAMDAW , LAMTAB , LEF , LOWT , MR , MS , N , NC . NEL , NETA , NETAT , NF F , NP , 

/data/ 

OOOOOI 

00166 

101* 


9 

NPCON , NPLOT , NPO I NT , NS , NSP , NST AT , NSTP , NT AL , NTH . NTROPY , OX , 

/DATA/ 

OOOOOI 

00166 

102* 


A 

PCHAMB , P I TAB , PNORM , PR A . PRB , PRC , PRD , PRDUM , PRE , PRT , RADFL , 

/DATA/ 

OOOOOI 

00166 

103* 


B 

RADR . RATLIM , RECOFT , RETR , RHOVW , ROKAP , RTM , S , SCT , SIGMA , SL , 

/DATA/ 

OOOOOI 

00166 

104* 


c 

SP , SPW , SUBLT , TF , THITAB , Td , TdA , TKP , TKT , TL , TLINP , TLTAB , 

/data/ 

OOOOOI 

00166 

105* 


D 

TOLOW , TUBEN , TW , VI TAB , VMUA . VMUB , VMUC , VMUD , WAT , WMS , XAREA , 

/DATA/ 

OOOOOI 

00166 

106* 


$ 

I PART , RP , WP . WF . RHOPA , CPART , I LAMIN, 


NEWOOOOOI 

00166 

107* 


E 

XENH , XI TAB , XLTAB , XTHIK , YAP , YITAB . ZMUTAB , ZP , FMF , ICF . RK 

/DATA/ 

NEWOOOOOI 

00167 

108* 



NAME LI ST /OUT/ ALPH , BASMOL , CBAR , CLNUM , COEFCL , DUB 8 , ELCON . EM 1ST , 

/OUT/ 

-01 OOOOOI 

00167 

109* 


1 

EMI V, EPOVRK, ETA, F, FFAR, FITMOL, FLMASS, FUEL, F2F IX, F2FIXT, 

/OUT/ 

OOOOOI 

00167 

1 10* 


2 

G , GE , GW , HCHAR , HFU , HOX , HPYG , HTEF , HW, I ADD , I AREA , I BODY , 

/OUT/ 

OOOOOI 

00167 

111* 


3 

ICOOL, IDERI V, IDIFF, IENH, IETA, IF IT, IFLOW, IFRAC, IGUESS. 

/OUT/ 

OOOOOI 

00167 

1 12* 


4 

INEW. IP. IPLOT , IPP. I PUNCH, 1ST, ITCOOL, ITDK, ITEMP, ITHERM, 

/out/ 

OOOOOI 

00167 

1 13* 


5 

ITHICK, ITLINP, IU, IUNIT, I WALL, dWALL, KAPPA .KAPPAT, KEDGP, 

/OUT/ 

OOOOOI 

00167 

1 14* 


6 

KONRFT , KR9 , KS , KTURB , KU , LAMDAW , LEF , LOWT , MR . MS , N, NC , NEL , 

7 OUT/ 

OOOOOI 

00167 

115* 


7 

NETA . NETAT , NF F , NP , NPCON , NPLOT , NPOINT , NS . NSP . NST AT , NSTP , 

/OUT/ 

OOOOOI 

00167 

1 16* 


8 

NTAL . NTH , NTROPY , OX . PCHAMB , PNORM , PR A , PRB , PRC , PRD , PRDUM , 

/OUT/ 

OOOOOI 

00167 

117* 


9 

PRE , PRT , RADFL , RADR , RATLIM , RECOFT , RETR , RHOVW , ROKAP , RTM , 

/OUT/ 

OOOOOI 

00167 

1 18* 


A 

S . SCT , SIGMA . Td . TdA . TKP , TOLOW . TUBEN , T W , VMUA , VMUB , VMUC , 

/OUT/ 

OOOOOI 

00167 

1 19* 


B 

VMUD , WAT , WMS , YAP , ZP 

/OUT/ 

OOOOOI 

00170 

120* 


NAMELIST /ARRAYS/ ALTAB , CPL , CPLTAB , DSIP , ENHTAB , FLUXd , HL . I LSP , 

/ARRAYS/ 

OOOOOI 

00170 

121* 


1 

LAMTAB , SL , SP , TF , THITAB , TKT , TL . TLINP , XAREA , XENH , XLTAB , 

/ARRAYS/ 

OOOOOI 

00170 

122* 


2 

XTHIK, ZMUTAB 

/ARRAYS/ 

OOOOOI 

00170 

123* 

c 




OOOOOI 

0017 1 

124* 


WRITE (6,NW) NIT, MURD. IOR. ITA, MAIN. IND, MOEG, ITE, LLAW, IDAT, IND. 

ANK 7/83 

OOOOOI 

00171 

125* 


1 

I ROC , I RE , LLAW , IDAT , IND , ITE , NTOR , I DAT , LOT , I ND , I RE , NTOR , I DAT , NIT , 

ANK 7/83 

OOOOOI 

00171 

126* 


2 

MURD . IOR . ITA . MAIN , IND , IOUT , ITE , I ED . IDAT , LOT . IND . IRE . I ED . IDAT , NIT , ANK 7/83 

OOOOOI 

00171 

127* 


3 

MURD , IOR , ITA , MAIN . IND , IOUT , ITE , LI F , IDAT , LOT , IND , IRE , 

ANK 7/83 

OOOOOI 

00171 

128* 


4 

L I F , IDAT , NIT . MURD , IOR . LOT , ISAV. ITA . LOT .ITE, LLA . LOT . 

ANK 7/83 

OOOOOI 



00171 

00307 

00310 

129* 

130* 

131* 


46 

5 IDAT , NIT . MURD , IOR , NCH, ISAV . ITA , IROC , ITE , LLA ,NCH. IDAT 

MWE = -1 

READ (5,1, END=50) CASE 

ANK 

7/83 

OOOOOI 

000137 

000140 

00313 

132* 


1 

FORMAT ( 1 3A6 ) 




000151 

00314 

133* 



READ ( 5 , DATA , END=50) 




000151 

00317 

134* 



IF (ZP .GT. 0.0) WRITE (6. ARRAYS) 


ANK 

3/83 

000156 

00323 

135* 



IF (ZP -GE. 0.0) WRITE (6, OUT) 


ANK 

3/83 

000165 

00327 

136* 



IF (NEL .LE. 8 .AND. NSP .LE. 7) GO TO 25 


ANK 

8/83 

000174 

00331 

137* 



WRITE (6,3) NEL, NSP 


ANK 

8/83 

000212 

00335 

138* 


3 

FORMAT (7/1 OX. 'NEil MUST BE .LE. 8, NEL =' ,12, 


ANK 

8/83 

000221 

00335 

139* 



1 ' NSP MUST BE .LE. 7. NSP =',I2//) 


ANK 

8/83 

000221 

00336 

140* 



NEL = MINO(NEL , 8 ) 


ANK 

8/83 

000221 

00337 

141* 



NSP = MINO( NSP , 7 ) 


ANK 

8/83 

000227 

00340 

142* 


25 

IF (MR .LE. 0.0) GO TO 30 


ANK 

8/83 

000236 

00342 

143* 



IF ( NTAL .GT. O) GE = (MR*HOX + HFU)/(MR + 1.0) 


ANK 

4/83 

000240 

00342 

144* 

C 


CALCULATE RELATIVE NUMBER OF ATOMS FROM THE MIXTURE 

RATIO AND THE 



000240 

00342 

145* 

C 


NUMBER OF EACH ELEMENT IN THE OXIDIZER AND FUEL 




000240 

00344 

146* 



OK = 0.6 


ANK 

5/83 

000255 

00345 

147* 



FK = 0.0 


ANK 

5/83 

000256 

00346 

148* 



DO lO J = 1 .NSP 


ANK 

5/83 

000262 

00351 

149* 



FK = FK + FUEL(d)*WAT(d) 


ANK 

5/83 

000262 

00352 

150* 


10 

OK = OK + OX(J)*WAT(J) 


ANK 

5/83 

000265 

00354 

151* 



AMNO = MR*FK/OK 


ANK 

5/83 

000272 

00355 

152* 



AMWP = FK + AMNO*OK 


ANK 

5/83 

000275 

00356 

153* 



AMNOS = AMNO/ AMWP 


ANK 

5/83 

000300 

00357 

154* 



amnfs = i . o7amwp 


ANK 

5/83 

000302 

00360 

155* 



DO 20 J = 1 ,NSP 


ANK 

5/83 

000310 

00363 

156* 


20 

TKP ( J , 1 ) = AMNOS*OX( J ) + AMNFS*FUEL ( d ) 


ANK 

5/83 

000310 

00365 

157* 



CMR = AMNOS*OK/(AMNFS*FK) 


ANK 

5/83 

000316 

00366 

158* 



WRITE (6,2 ) CMR .MR 


ANK 

5/83 

000324 

00372 

159* 


2 

FORMAT (//10X, 'COMPUTED MIXTURE RATIO =',F10.6,' 

INPUT MIXTURE * 

, ANK 

5/83 

000334 

00372 

160* 



1 ' RATIO = ' , F 10.6/7) 


ANK 

5/83 

000334 

00373 

161* 


30 

NCASE = NCASE + 1 


ANK 

5/83 

000334 

00374 

162* 



NS J = 15 + NSP 




000336 

00374 

163* 

c 


IF LOW TEMPERATURE EXTENSION DATA HAS BEEN READ IN. 

CONVERT IT 



000336 

00374 

164* 

c 


TO INTERNALLY REQUIRED UNITS 




000336 

00375 

165* 



IF ( LOWT ) CALL LTCPHS 




00034 1 

00377 

166* 



IF (NCASE .GT. 1) REWIND 2 


ANK 

7/83 

000345 

00401 

167* 



IF ( IPLOT .EQ. 0) GO TO 45 




000354 

00403 

168* 



IF (NCASE .LE. 1) GO TO 35 


ANK 

7/83 

000356 

00405 

169* 



REWIND 3 




000362 

00406 

170* 



REWIND 4 




000365 

00407 

171* 


35 

NSTAT(NS) = 1 


ANK 

7/83 

000371 

00410 

172* 



IF (IWALL -NE. 7) GO TO 45 


ANK 

4/83 

000373 

00412 

173* 



NPLOT (7 ) = 0 




000376 

004 1 3 

174* 



NPLOT( 12) = 0 




000377 

00414 

175* 


45 

IS = 1 


ANK 

5/83 

000401 

00415 

176* 



IQ = 1 




000402 

004 16 

177* 



IF (ICOOL .NE. 0 .AND. ICON .EQ. O) IRITE =0 




000404 

00420 

178* 



IF (IPLOT .EQ. 0 .OR. ICOOL .NE. 0) IPASS = 1 




000415 

00422 

179* 



IF (ICON .EQ. 1 .AND. IPLOT .NE. 0) IPASS - 0 




000427 

00424 

180* 


41 

CALL SETUP 




000443 

00425 

181* 


43 

CALL ITERAT 


BLIM 031 

000445 

00426 

182* 



CALL OUTPUT 


BLIM 032 

000446 

00427 

183* 



IF (NON) 43,44,15 




000450 

00432 

184* 


44 

ISH = IS 


ANK 

5/83 

000454 

00433 

185* 



IQ - IQ + 1 




000456 

00434 

186* 



IS = IS + 1 


ANK 

5/83 

00046 1 

00435 

187* 



IF (NP(IS) .EQ. NTH) NSTAT(IS) * 1 


ANK 

5/83 

000464 

00437 

188* 



IF (KQ10 + IS -EQ. -10) KQ10 = 1 


ANK 

5/83 

000474 


J ' J ] __J J .... 1 1 J .]• ] ] j J i 


, i i i " i : i s ““"'i 1 ] ] ) ] ~ > ■ — ] — ] . n i 

W' 


00441 

00443 

00445 

189* 

190* 

191* 



IF (IS .EQ. NS) IRITE = 1 
IF (IS .LE. NS) GO TO 41 
IS = NS 




ANK 

ANK 

ANK 

5/83 

5/83 

5/83 

000502 

000507 

000513 

00446 

192* 



IF (ICOOL .EQ. 0 .OR. ICON .EQ. 

D 

GO 

TO 15 



000515 

00450 

193* 



CALL SATEMP 






000527 

00451 

194* 



GO TO 45 






000531 

00452 

195* 


15 

IF (NP(IS) .LE. NTH) GO TO 46 




ANK 

8/83 

000533 

00454 

196* 



CALL ROCOUT 




ANK 

8/83 

000537 

00455 

197* 



IF ( I PLOT .GT. O) CALL PLOT 






00054 1 

00457 

198* 



GO TO 46 






000546 

00460 

199* 


50 

IF (I PUNCH .NE. 1 .AND. I PUNCH 

.NE. 

2) 

CALL EXIT 

ANK 

8/83 

000550 

00462 

200* 



J - O 




ANK 

8/83 

000565 

00463 

201* 



WRITE (15) J 




ANK 

8/83 

000566 

00466 

202* 



END 




BLIM 038 

000575 


END OF COMPILATION: NO DIAGNOSTICS. 



€>SYS$*MSFCFOR$.FOR.WUS NNNCER 
HSA E3 -12/10/84-22:23:55 (31,32) 

-20 

$,HF(i5. 5)”XI( 50) 

-28,28- 

725*1) Vs(56) / 1 5 1 )7 RADS ( 50 ) * ROK AP( 50 ) , S (50) 7 

-30,30- 

730 ) , RHOP ( 1 5 ) , TP /IS ) , RHO( ’TsTjRTOPit'fByV'TP/ 

-34 

COMMON/ AC C N/ AC C P K , I L AM i S P C T 

COMMON/ ACPK/ACCPK 1 , ACCPK2 

common/ re t h7rethmo 

COMMON/ RUF /DUMM 1 , DUMM2 , DUMM3 , DUMM4 , DUMM5 , DUMM6 , DUMM7 , DUMM8 . DUMM9 , 

$ DUMM lO , D U MM 1 1 , DU MM 12, R K , IC F * F M F , D U MM 1 6 , DU MM 17 , D U MM i 8 

COMMON/PART I /PARTM , DUMM24 , RHOPA , DUMM23 . CP ART , WP , DUMM 1 9 . WF , 

$ DUMM 2 2 , D U MM20 i DUMM2 1 7 1 LT i P F t A K , R P " 9 1 PA RT 

COMMON /LAM/ ILAMIN 

-313 

RETHM0=-C3M( IS)*RHOE( IS)*UE( I S ) *CTE*VMUE ( IS )/VMU(NETA) 

A CC P = B E T A V ( I S ) *VMU E ( IS j * * 2 * ROK A P (IS j * * 2 / 2 "6/X I ( I S ) 

ACCPK = ACC P*RHOE (IS) *VMU( 1 )/ ( VMUE( IS)*RHO( 1 )) 

I F ( I L A M I N * E 0 . 6 "j GO* TO 7 9 

I LAM=0 

I *F *( S*( I S ")* ** GT V *2*i" ^*S*T U R B* V AND'V ACC*P K *.*GT*/i**/ 1 *E — *06*yGb"~" TO*" 6 9 

GO TO 79 

69 1 F (RE f HMO i L T . 2 50. ) GO TO 7 9 ”* * 

ILAM= 1 

A A *8 V 935 E -1*4 • 

BB = 2 . 239E - 10 

C C = 1 .02 47 E - 06 

ACCPK 1 = AA *RETHMO* *2+BB*RETHM0+CC 

I F (RET HMO ' L T . 4 i 667 "j GO* t 0 98 

I LAM=0 

GO TO 99 

98 ACCPK2=3 . 5E-06 

99 IF ( ACC P K . L T A C C PK 1 ) I L A M =6 

I F ( ACCPK . GT . ACCPK2 ) I LAM= 1 

'79 CONTINUE 

-320 

I F (RE T HMO * GT - R E T R ) I L T = 2 

-321 

I F (RE T HMO" t T . R E T R ) I L T = 1 ***‘*’ : : 


SUBROUTINE NNNCER ENTRY POINT 002554 

NONCER E NT R Y PO I NT 0025 57 


STORAGE USED : COD E (1) .002 5 6 2;D ATA ( O ) ...000142; _BLANK C 0 MMON (2) .OOOOOO 


COMMON BLOCKS: 


0003 

BLOCOM 

002043 

0004 

BUMCOM 

000004 

0005 

COECOM 

000014 

0006 

COECON 

000247 

0007 

CONSTS 

000003 

OOIO 

CRBCOM 

OOOIIO 

001 1 

EDGCOM 

001216 

0012 

EPSCOM 

000042 


J 


J 


J 




J 


J _._J 


\ 

—J 


J 


J 



1 — I 


1 . " ] ] ] ] ] ~ ] . . ] 

w w 


0013 

EQPCOM 

000433 

0014 

EQTCOM 

001427 

0015 

ERRCOM 

000622 

0016 

ETACOM 

002631 

0017 

FLXCOM 

000020 

0020 

HISCOM 

000426 

0021 

INPUTI 

000015 

0022 

INTCOM 

000123 

0023 

INTERI 

000006 

0024 

NONCOM 

035532 

0025 

NZERO 

000001 

0026 

PRMALS 

000145 

0027 

PRMORG 

000455 

0030 

PRPCOM 

000303 

0031 

PRPNPT 

000076 

0032 

SAVNCR 

000175 

0033 

TURB 

OOOOOI 

0034 

VARCOM 

000645 

0035 

WALL 

000226 

0036 

ACCN 

000003 

0037 

ACPK 

000002 

0040 

RETH 

OOOOOI 

0041 

RUF 

000022 

0042 

PARTI 

000020 

0043 

LAM 

OOOOOI 


E XT E R N A L R E F E R E NC E S (BLOC K ” NAME) 


0044 EQUIL 

0045 STATE 

0046' LINGER 

0047 TRMBL 
0056 IMONE 

0051 TVCM1 

0052 iCOEFF 

0053 TVCCOE 

0054 iONLV 

0055 TVCI 

0056 LIAO 

0057 ABMAX 

0060 RERAY 

0061 RNLCER 

0062 NERR3$ 


STORAGE ASSIGNMENT (BLpCK,__TYPE^ RELATIVE., 


OOOI 

000067 

10L 

OOOI 

000626 

lOOL 

OOOI 

001141 

lOOIL 

OOOI 

000163 

1 1L 

OOOI 

000157 

12L 

OOOI 

000642 

1 20L 

0001 

001022 

145L 

OOOI 

000056 

167G 

0001 

000113 

202G 

0001 

000137 

2 16G 

0001 

000204 

230G 

0001 

000206 

234G 

OOOI 

001 163 

244L 

OOOI 

000247 

251G 

OOOI 

000345 

270G 

OOOI 

000346 

273G 

OOOI 

000025 

3L 

OOOI 

000364 

302G 

OOOI 

0004 1 7 

317G 

OOOI 

000426 

325G 

OOOI 

000435 

331G 

OOOI 

000501 

354G 

OOOI 

000504 

360G 

OOOI 

000513 

364G 

OOOI 

000030 

4L 

OOOI 

000604 

417G 

0001 

000671 

44 1G 

OOOI 

000672 

444G 

0001 

001002 

470G 

OOOI 

001033 

500G 

OOOI 

OOI 1 14 

5 12G 

OOOI 

001 117 

5 16G 

OOOI 

001134 

526G 

OOOI 

000373 

53L 4 

OOOI 

001173 

535G 

0001 

000401 

54L 

OOOI 

001274 

560G 

OOOI 

001304 

565G 

OOOI 

001324 

574G 

0001 

000424 

58L 

OOOI 

000544 

60L 

OOOI 

001350 

605G 

OOOI 

001204 
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OOIOI 

1* 

SUBROUTINE NNNCER 


OOOOOO 

OOIOI 

2* 

C 



OOOOOO 

00103 

3 * 

COMMON /BLQCOM/ 

FR( 900 ) . L 2 ,L 3 ,LEF( 8 ),LEFS( 24 ), MOA ( 60 ) , MOB ( 60 ) , 

/BLQCOM/ 

OOOOOO 

00103 

A* 

1 

NSPEC, PIEASE. W( 3 ) 

/BLQCOM/ 

OOOOOO 

00104 

5 * 

COMMON /BUMCOM/ 

BUMP, EASE, 1777 , WDOT 

/BUMCOM/ 

OOOOOO 

00105 

6* 

COMMON /COECOM/ 

C 5 ,C 6 ,C 7 ,C 8 ,C 9 , C IO, C 1 2 , C 1 3 , C 14 ( 3 ) ,C 32 

/COECOM/ 

OOOOOO 

00106 

7 * 

COMMON /COECON/ 

CK 1 ( 6 ). CK 6 ( 156 ) ,XM( 5 ) 

/COECON/ 

OOOOOO 

00107 

8* 

COMMON /CONSTS/ 

CPFL, DPR, GC 

/CONSTS/ 

OOOOOO 

001 10 

9 * 

COMMON /CRBCOM/ 

ASU( 3 ) , BSU( 4 ) , EMISC. EMIST , EMI V( 3 ) , HCARB , HCHAR ( 3 ) , 

/CRBCOM/ 

OOOOOO 

J 

. . J 

J J J 

j : i 1 „ j j ; ! 

i J 

1 ] 


] 


j ] . ] ] ] 



w 

w 

* 



001 10 

10* 

1 HPG , HPYG( 4 ) , I SU , KS ( 50) 

/CRBCOM/ 

oooooo 


001 1 1 

11* 

COMMON /EDGCOM/ DSIP( 50) , DU EDGE , GEP , HE , PE( 50) , RH0E(40O) , TTVC , 

/EDGCOM/ 

oooooo 


001 1 1 

12* 

1 TVCC ( 50) , UE (*50 ) , VMUE ( 50) 

/EDGCOM/ 

oooooo 


OOI 12 

13* 

COMMON /EPSCOM/ CLNUM( 17 ) , EPSA( 16 ) , RETR 

/EPSCOM/ 

oooooo 


00113 

14* 

COMMON /EQPCOM/ ATA(282),NEL 

/EQPCOM/ 

oooooo 


001 14 

15* 

COMMON /EQTCOM/ EOT ( 14 ) , ISP . P( 2 1 ) , A( 14, 14 ) . R(439 j , TC(60) . VLNK(60) 

/EQTCOM/ 

oooooo 


00115 

16* 

COMMON /ERRCOM/ FLE ( 43 ) . GLE ( 30 ) ,SPLE(30,6) , ELMM, ENL( 123) , ENLM( 8 ) , 

/ERRCOM/ 

oooooo 


00115 

17* 

1 ENLMM, IENLM(8 ) , DRNL( 8 ) 

/ERRCOM/ 

oooooo 


00116 

18* 

COMMON /ETACOM/ ETA(86 ) , LAR( 123 ) , BA 1 ( 43 , 18 ) , BA2( 30. 15) 

/ETACOM/ 

oooooo 


00117 

19* 

COMMON /FLXCOM/ WALLO, WALL J( 6 ) , QW , VJKW( 7 ) , TPWALL 

/FLXCOM/ 

oooooo 


00120 

20* 

COMMON /HISCOM/ ALPHD , BETAP ( 50) , BETAV( 50) , C 1 , C2 , C3M( 50) 

/HISCOM/ 

oooooo 


00120 

21* 

$ ,HF( 15,5) ,XI(50) 


NEWOOOOOO 


00121 

22* 

COMMON /INPUTI/ IBODY ( 5 ) , I FLOW , IGUESS , IH( 2 ) , I WALL , >JW( 2 ) , NTROP Y 

/INPUTI/ 

oooooo 


00122 

23* 

COMMON 7 i NTCOM/C ASE (13), CBAR ,1,10, IS , I SH , ITS , KAPPA , kONRFT , KR9 ( 50 ) 

,/INTCOM/ 

oooooo 


00122 

24* 

1 MAT 1 1 , MAT 1 J , MAT2I , MWE , NAM , NETA , NNLEO , NON , NRNL , NS , NSP , NSPM 1 

/INTCOM/ 

oooooo 


00123 

25* 

COMMON /INTERI/ KBC , KCC . KQ9 , KQ 10, KSB , KSOL 

/INTERI/ 

oooooo 


00124 

26* 

COMMON/NONCOM/ AM( 123, 1 23 ) , DLPH(8 ) , DLPK( 6 , 8 ) , DTHW . DTKW( 6 ) , TCW , VLNKW/NONCOM/ 

oooooo 


00125 

27* 

COMMON /NZERO/ NUL 

/NZERO/ 

oooooo 


00126 

28* 

COMMON /PRMALS/ COSALF ( lOO) , GE 

/PRMALS/ 

oooooo 


00127 

29* 

COMMON /PRMORG/ I D I SC ( 15 1 ) . RADS (50) , ROKAP (50) ,S( 50 ) 

/PRMORG/ 

NEWOOOOOO 


00130 

30* 

COMMON /PRPCOM/ DRHOH, DRHOK( 30) ,DTK( 141 ) , DTH,DCAPCH(7 ) , VMU( 15 ) 

/PRPCOM/ 

-oioooooo 


00131 

31* 

COMMON /PRPNPT/ HB ( 1 5 ) , HP , QR ( 1 5 ) , RHO (15), RHOP ( 15) , TP 

/PRPNPT/ 

NEWOOOOOO 


00132 

32* 

COMMON /SAVNCR/ CORMA , DVNL ( 1 23 ) , ICORM 

/SAVNCR/ 

-OIOOOOOO 


00133 

33* 

COMMON /TURB/ STURB 

/ TURB/ 

OOOOOO 


00134 

34* 

COMMON /VARCOM/ ALPH , F ( 1 5 , 4 ) , G( 1 5 , 3 ) . SP( 1 5 . 3 , 7 ) 

/VARCOM/ 

OOOOOO 


00135 

35* 

COMMON /WALL/ FLUXJ(3,50) 

/WALL/ 

OOOOOO 


00136 

36* 

COMMON/ ACCN/ ACCPK . I LAM , SPCT 


NEWOOOOOO 


00137 

37* 

COMMON/ ACPK/ACCPk i , ACCPK2 


NEWOOOOOO 


00140 

38* 

COMMON/RETH/RETHMO 


NEWOOOOOO 


00141 

39* 

COMMON/ RUF /DUMM 1 , DUMM2 , DUMM3 , DUMM4 . DUMM5 , DUMM6 , DUMM7 , DUMM8 , DUMM9 . 


NEWOOOOOO 


00141 

40* 

$ DUMM lO, DUMM 1 1 ,DUMM12,RK, ICF , FMF , DUMM 16 , DUMM 17 , DUMM 18 


NEWOOOOOO 


00142 

41* 

COMMON/PART I/PARTM , DUMM24 , RHOPA , DUMM23 . CPART , WP , DUMM 19, WF, 


NEWOOOOOO 


00142 

42* 

$ DUMM22 , DUMM20 , DUMM2 1 , I LT , PF , AK , RP , I PART 


NEWOOOOOO 


00143 

43* 

COMMON /LAM/ ILAMIN 


NEWOOOOOO 


00143 

44* 

C 


OOOOOO 


00144 

45* 

DIMENSION CORAR( 1 ) , PREQ( 1 ) 

ANK 4/83 

OOOOOO 


00145 

46* 

EQUIVALENCE (AM.CORAR) , (DRHOH, PREQ) 

ANK 4/83 

OOOOOO 


00146 

47* 

INTEGER ASU.BSU 


OOOOOO 


00146 

48* 

C 


OOOOOO 


00147 

49* 

EASE=AMIN1 (EASE*2. , 1.6) 


OOOOOO 


00150 

50* 

IF (ITS .NE. 1) GO TO 11 


000006 


60152’* 

51* 

EASE = 1 .6/3.6 

ANK 8/83 

OOOOI 1 


00153 

52* 

BUMP = 1.0 

B05A0740 

000013 


00154 

53* 

IF (IQ .LE. 1) GO TO 3 

ANK 5/83 

000015 


00156 

54* 

IF (WDOT .LT. 0.0) GO TO 4 


000021 


00160 

55* 

3 WDOT = - . 12/Cl 


000025 


00161 

56* 

4 PI EASE= 1 . 


000030 


00162 

57* 

ICORM = 1 

B05A0760 

000031 


00163 

58* 

CORMA = 1 .£ + 10 

B05A0770 

000033 


00164 

59* 

IF (KR9(is) -GT. 6) I WALL = KR9(IS) 

ANK 4/83 

000035 


00166 

60* 

DO 17 I = 1 .NETA 


000056 


00171 

61* 

17 EPSA( I )=0. 


000056 


00173 

62* 

IF (IWALL - 2) 11, 10,9 

ANK 4/83 

000057 


00176 

63* 

9 FLUXJ( 3 , IS ) = -1.0 


000063 


00177 

64* 

10 ISP = NEL + 1 

ANK 5/83 

000067 


00200 

65* 

KK=MAXO( 1 ,KS(iS) ) 


000071 


00201 

66* 

DO 13 J = 1,3 

ANK 6/83 

000104 


00204 

67* 

13 W(d) = FLUXJ(J.IS) 

ANK 6/83 

000113 


00206 

68* 

L2=2«KK 


000115 


00207 

69* 

L3=L2+ 1 


000120 




00210 

00212 

00213 

70* 

71* 

72* 



IF (IWALl .LE. 2) GO TO 11 
HPG = HPYG(KK) 

EMI SC=EMIV(KK ) 

ANK 4/83 

000122 

000126 

000130 

00214 

73* 



HCARB-HCHAR ( KK ) 


000132 

00215 

74* 



DO 12 d=I SP . NSPEC 


000137 

00220 

75* 



IF (MOA(d) .NE. ASU(KK) .OR. MOB ( d ) .NE. BSU(KK)) GO TO 12 


000137 

00222 

76* 



ISU - d 


000153 

00223 

77* 



GO TO 11 


000155 

00224 

78* 


12 

CONTINUE 


000160 

00226 

79* 



ISU=ISP 


000160 

00226 

80* 

C 


INITIALIZE AM MATRIX AND ENL ARRAY; COMPUTE COEFF. FOR NONLINEAR 

EQUATIONS 

000160 

00227 

81* 


1 1 

DO 15 I = 1,123 

ANK 4/83 

000163 

00232 

82* 



ENL( I )=0. 


000204 

00233 

83* 



DO 15 d=1 , NNLEO 

B05A0860 

000206 

00236 

84* 


15 

AM( I , d ) = 0. 

B05A0870 

000206 

00236 

85* 

C 


EVAL. GROUPINGS WHICH CHANGE DURING ITERATION BUT ARE NOT F ( ETA) 

B05A0880 

000206 

00241 

86* 



C5 = 1.0/ALPH 


000214 

00242 

87* 



C6 = ALPH**2*BETAP( IS) 

ANK 7/83 

000217 

00243 

88* 



C7 * ~UE ( IS)** 2/ ALPH**2/ ( CPFL+GC ) 

ANK 4/83 

000222 

00244 

89* 



C8 = ALPHD * C5 

B05A0980 

000231 

00245 

90* 



C9 = BETAV(IS) + Cl - C8 

ANK 8/83 

000234 

00245 

91 * 

C 


FINALLY. EVAL CONTRIBUTIONS TO AM AND ERRORS FROM OTHER COEFFS 

B05A1 140 

000234 

00245 

92* 

c- 

— 

START OF MAdOR DO LOOP FOR EVAL OF COEFFS AND ERRORS AT EACH ETA 

B05A1290 

000234 

00246 

93* 



KCC = 2 

ANK 4/83 

000240 

00247 

94* 



KSOL = 0 

ANK 4/83 

000242 

00250 

95* 



DO 49 1=1 .NETA 


000247 

00253 

96* 



M = MAT Id + I - NETA 

ANK 8/83 

000247 

00254 

97* 



MX = NETA - 1 

ANK 8/83 

000253 

00255 

98* 



HB ( I ) = G( I , 1 ) + C7*F ( I , 2 )**2/2 . 0 

ANK 5/83 

000256 

00256 

99* 



HP = G( I ,2) + C7*F(I ,2)*F(I ,3) 


000264 

00257 

lOO* 



IF ( IFLOW .LE. 0) CALL EQUIL ( HB( I ) . PE ( I S ) ) 

ANK 5/83 

000271 

00261 

101* 



iF (IFLOW .GT. 6} CALL STATE 

ANK 4/83 

000307 

00263 

102* 



I F ( I . GT . 1 ) GO TO 54 


0003 1 4 

00265 

103* 



IF (NSPM1 .LE. 0) GO TO 53 


000330 

00267 

104* 



DO 52 K = 1 ,NSPM1 


000333 

00272 

105* 



DO 31 KK = 1 , NEL 

ANK 5/83 

000346 

00275 

106* 


31 

DLPK(K.KK) = A(KK+2, K+2) 


000346 

00277 

107* 


52 

DTKW( K ) = DTK(K) 


000350 

00301 

108* 



DO 32 KK = 1.NEL 

ANK 5/83 

000364 

00304 

109* 


32 

DLPH(KK)= A(KK+2, 1 ) 


000364 

00306 

1 10* 



VLNKW=VLNK( ISU ) 


000366 

00307 

111* 



TCW=TC( ISU) 


000370 

00310 

112* 


53 

DTHW=DTH 


000373 

00311 

1 13* 



M= 1 16 


000374 

00312 

1 14* 



MX= 1 


000376 

00313 

115* 


54 

RHOP ( i ) =drh6h*hp 


00040 1 

00314 

1 16* 



IF ( NSPM1 .LE. 0) GO TO 58 


000405 

00316 

1 17* 



DO 57 K = 1.NSPM1 


000410 

00321 

1 18* 


57 

RHOP ( I ) = RHOP(I) + DRHOK(K)*SP(I ,2,K) 


000417 

00323 

119* 


58 

L=o 


000424 

00323 

120* 

c- 


-UPPER LIMIT IS MAX NUMBER OF SPECIES (MXNSP) =LAST DIM ON SP 


000424 

00324 

121* 



DO 49 MM- 1 . 7 


000426 

00327 

122* 



M=M+MX 


000426 

00327 

123* 

c- 

— 

■UPPER LIMIT CORRESPONDS TO DIMENSIONS ON AM ARRAY 


000426 

00327 

124* 

c 


LOWER LIMIT IS UPPER LIMIT (123) MINUS (2*7 + 11 + 4/7 OR 25) (123 - 25) 

000426 

00330 

125* 



DO 49 N=98 , 123 


000430 

00333 

126* 



L = L+ 1 


000435 

00334 

127* 


49 

am(m,n)=preo(L) 


000440 

00340 

128* 



RETURN 


000447 

00340 

129* 

c 




000447 


J J . 1 . J J . J _J _J . _ J - J __J ] _.J . ...! I 




1 ] 

1 1 ! "!• 1 1 ] ! 1 " 

1 1 

! . 1 

:'~i i 






w 

00341 

1 30* 

ENTRY NONCER 


000452 


00342 

131* 

DUEDGE=0 . 


000452 


00343 

132* 

GEP=0 . 


000453 


00344 

133* 

HE = GE 

ANK 4/83 

000454 


00345 

134* 

CALL LINCER 


000456 


00346 

135* 

IF ( KQ 10 .GT. 0) CALL TRMBL(2) 

ANK 4/83 

000460 


00350 

136* 

TTVC= 1 . 0 


000466 


00351 

137* 

M=1 16 


000470 


00352 

138* 

MX= 1 


000472 


00353 

139* 

DO 120 1 = 1* NETA 

B05A1300 

000501 


00356 

140* 

L=0 


000501 


00357 

141* 

DO 59 MM= 1 , 7 

B05B 

000504 


00362 

142* 

M=M+MX 


000504 


00363 

143* 

DO 59 N= 98. 123 

B05B 

000506 


00366 

144* 

L=L+ 1 


000513 


00367 

145* 

PREQ(L)=AM(M.N) 


0005 1 5 


00370 

146* 

59 AM(M,N)=0. 


000520 


00370 

147* 

C TEST TO BYPASS COMMANDS THAT CANNOT BE PERFORMED AT ETA( 1 ) 

B05A1310 

000520 


00373 

148* 

IF (I . LE - 1 ) GO TO 60 


000523 


00375 

149* 

CALL IMONE 


000527 


00376 

150* 

IF (KQ9 .NE. 0) CALL TVCM1 

ANK 4/83 

000531 


00400 

151* 

IF (KQ10 -GT. 0) CALL TRMBL(4 ) 

ANK 4/83 

000535 


00400 

152* 

C COMPUTE STATIC ENTHALPY AND DETERMINE STATE OF GAS 

B05A134O 

000535 


00402 

153* 

60 CIO = C7*F(I ,2) 


000544 


00403 

154* 

C 1 3 = C7*F( I , 3 ) 


000546 


00404 

155* 

HP = C 1 3*F ( I ,2) + G ( 1 , 2 ) 


000551 


00404 

156* 

C EVAL GROUPINGS WHICH ARE USED AT 1-1 AS WELL AS AT I 

B05A1460 

000551 


00405 

157* 

CALL ICOEFF 


000554 


00406 

158* 

IF (KQ9 .NE. O) CALL TVCCOE 

ANK 4/83 

000556 


00410 

159* 

IF (KQIO .GT. 0) CALL TRMBL(3) 

ANK 4/83 

000562 


00412 

160* 

IF (I .NE. 1) GO TO lOO 


000570 


00412 

161* 

C DLPK , TCW , VLNKW , DLPH, AND Y1 NEEDED ONLY FOR CARBON PROBLEM 

BOB A 1490 

000570 


00414 

162* 

IF (NSPM1 .LE. 0) GO TO 95 


000574 


004 16 

163* 

DO 90 K = 1 * NSPM1 


000577 


00421 

164* 

WALLU(K) = CK6 ( K ) 

B05A1520 

000604 


00422 

165* 

90 VJKW(K) = CK6( K )/C3M( IS) 

ANK 8/83 

000605 


00424 

166* 

95 WALLQ = C32 

B05A1620 

000612 


00425 

167* 

OW = C32/C3M(IS) 

ANK 8/83 

000614 


00426 

168* 

TPWALL = TP 


0006 1 7 


00427 

169* 

MX = NETA - 1 

ANK 8/83 

000621 


00430 

170* 

GO TO 120 

ANK 4/83 

000624 


00430 

171* 

C BACK TO CONSERVATION EQUATIONS 

B05A1650 

000624 


00431 

172* 

lOO CALL I ONLY 

B05A1660 

000626 


00432 

173* 

IF (KQ10 .GT. 0) CALL TRMBL(5) 

ANK 4/83 

000627 


00434 

174* 

IF (KQ9 .NE. 0) CALL TVCI 

ANK 4/83 

000635 


00436 

175* 

120 M=MAT 1 J+I -MX 


000642 


00440 

176* 

DO 122 1=2.4 


000647 


00443 

177* 

DO 122 J=1 * NNLEQ 


000672 


00446 

178* 

122 AM ( I , J)=0. 


000672 


00451 

179* 

ENL( 4 ) = F (NETA , 2 ) - ALPH 

ANK 4/83 

000677 


00452 

180* 

AM( 4 , 1 ) = 1.0 

ANK 4/83 

000702 


00453 

181* 

AM ( 4 , MAT 1 d ) = - 1 . 


000704 


00454 

182* 

ENL( 3 ) = - F( 1 , 2 ) 


000707 


00455 

183* 

AM( 3 , 4 ) = 1 . 


000711 


00456 

184* 

ENL( 2 ) = CBAR*( F(NETA . 2 ) - (ETA(NETA) - ETA (KAPPA) )*F(NETA,3)) - 

ANK 4/83 

000713 


00456 

185* 

1 F (KAPPA, 2) 

ANK 4/83 

000713 


00457 

186* 

IF (NTROPY . EQ. 0) ENL(2) = CBAR«F(NETA , 2) - F(KAPPA,2) 

ANK 4/83 

000724 


00461 

187* 

AM( 2 , KAPPA+3 ) = 1 . 


000734 


00462 

188* 

AM( 2 , MAT Id ) = -CBAR 


000737 


00463 

189* 

IF (NTROPY .EQ. 5) CALL LIAD (-1.2, 2*NETA-2, ( ETA ( NETA ) - 

ANK 4/83 

000742 




00463 

1 90* 


1 ETA(KAPPA) )*CBAR) 

ANK 4/83 

000742 


00465 

191* 


IF (ITS -GT. 1) GO TO 145 

ANK 5/83 

000771 


00467 

192* 


DO 140 K = 1 ,NSP 


001002 


00472 

193* 

140 

IF ( LEFS(k) . LE. 6 -AND. LEF(K) .GT. 6) EASE = 6.050 


001002 


00475 

194* 

145 

M - 2 

ANK 4/83 

001022 


00476 

195* 


MM=MAT id-1 


001023 


00477 

196* 


DO 200 1=1, NRNL 


001033 


00502 

197* 


CALL ABMAX(MM- 1 . ENL(M) . ENLM( I j , IENLM( I ) ) 


001034 


00503 

193* 


IENLM(I) = IENLM( I )+ 1 


001053 


00504 

199* 


M=M+MM 


001056 


00505 

200* 

200 

MM = NETA - 1 

ANK 8/83 

001061 


00505 

201* 

C 

SOLVE REDUCED SET OF EQUATIONS 

B05A2070 

001061 


00507 

202* 


IF (IGUESS .LT. 0) RETURN 

ANK 4/83 

001066 


00507 

203* 

C 

SCRUNTCH DEFINED ROWS OF AM MATRIX TO THE TOP 

B05A2090 

001066 


0051 1 

204* 


DO 240 M= 1 , NAM 

B05A2130 

001074 


00514 

205* 


enl(m)=enl(m+i ) 


OOI 1 14 


00515 

206* 


DO 240 J=1,NNLEQ 


001 1 17 


00520 

207* 

O 

CN 

AM(M . J )=AM(M+ 1 , d ) 


001 1 17 


00523 

208* 


IF (K010 -LE. 0) GO TO 1001 

ANK 4/83 

001126 


00525 

209* 


DO lOOO M = 4, NAM 


OOI 134 


00530 

210* 

1000 

AM(M , 3 ) = AM( M , 3 ) + ENL (M )/F ( 1 , 3 ) 


001134 


00530 

211* 

C 

THE FOLLOWING ROUTINE REARRANGES COLUMNS OF THE NOW RECTANGULAR 

B05A2250 

001134 


00530 

212* 

C 

AM MATRIX, ACCORDING TO LAR , INVERTS( ( AM ( I , J ) , J=2 , NAM ) , I = 1 , NAM ) AND 

B05A2260 

001134 


00530 

213* 

c 

MULTIPLIES THE INVERSE TIMES THE REMAINING COLUMNS OF AM MATRIX 

B05A2270 

001134 


00530 

214* 

c 

AND TIMES THE ENL. 

B05A2280 

001134 


00532 

215* 

1001 

CALL. RERAY (NAM , AM . NSP+ 1 , ENL , 1 . LAR, IX. 123 . EOT . EOT ( 106 ) , EQT ( 2 i 9 ) , 

ANK 4/83 

001 141 


00532 

216* 


1 EOT ( 332 ) , EQT ( 445 ) ) 

ANK 4/83 

001141 


00532 

217* 

c 

TREAT SURFACE OPTIONS IN RNLCER WITH REDUCED NONLINEAR SET 


001141 


00533 

218* 

244 

CALL RNLCER 

ANK 4/83 

001163 


00533 

219* 

C 

DETERMINE MAXIMUM NONLINEAR ERRORS 

B05A4010 

001163 


00534 

220* 


DO 605 I = 1 , NRNL 


001164 


00537 

221* 


IF ( ABS ( ENLM ( I ) ) . GE . ABS(DRNL( I ) ) ) GO TO 605 


001173 


00541 

222* 


ENLM(I) = DRNL(I) 


001177 


00542 

223* 


IENLM(I) = 1 


001201 


00543 

224* 

605 

CONTINUE 


001205 


00545 

225* 


SFE = ALPH* AMAX 1 ( ABS( BETAP( IS)),0. lO) 

ANK 7/83 

001205 


00546 

226* 


DUB = AMAX 1(ABS(G( NETA, 1) - G( 1 . 1 ) ) , 1 .0E3) 


001214 


00547 

227* 


ENLM( 1 ) = ENLM( 1 )/SFE 


001224 


00550 

228* 


ENLM( 2 ) = ENLM( 2 )/DUB 


001227 


00551 

229* 


CALL ABMAX ( NRNL , ENLM . ENLMM , M) 


001232 


00552 

230* 


ENLMM = ENLMM/ 10. 


001240 


00553 

231* 


ENLM(1) = ENLM( 1 ) *SFE 


001243 


00554 

232* 


ENLM( 2 ) * ENLM( 2 )*OUB 


001246 


00555 

233* 


ELMM = ABS(ELMM) 

B05A4160 

001251 


00556 

234* 


ENLMM = ABS( ENLMM) 

ANK 4/83 

001253 


00556 

235* 

C 

EVALUATE NONLINEAR CORRECTIONS FROM THE REDUCED SET 

B05A4180 

001253 


00557 

236* 


DO 615 1=1 , NAM 

B05A4190 

001274 


00562 

237* 


L = LAR(I) 

B05A4200 

001274 


00563 

238* 


DVNL(L) = ENL(I) 

B05A4210 

001276 


00564 

239* 


DO 615 K* 1 f NRNL 

B05A4220 

001304 


00567 

240* 


J = K + NAM 

B05A4230 

001304 


00570 

241* 

615 

DVNL(l) = DVNL ( L ) - DRNL(k) * AM( I , J) 

B05A4240 

001307 


00573 

242* 


DO 620 K=1 .NRNL 

B05A4250 

001324 


00576 

243* 


I = NAM + K 

B05A4260 

001324 


00577 

244* 


d = LAR(I) 

B05A4270 

001327 


00600 

245* 

620 

DVNL(d) = DRNL(K) 

B05A4280 

001332 


00600 

246* 

c 

-RECYCLE IF ALPH WANTS TO GO NEGATIVE 


001332 


00602 

247* 


IF (DVNL( 1 ) .GT. -0.90* ALPH) GO TO 629 


001337 


00604 

248* 


DO 627 K=NUL , NSPM1 


001350 


00607 

249* 


WALLd(K) = VJKW(K)*C3M( IS) 

ANK 8/83 

001350 
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00610 

00612 

00613 

250* 

251* 

252* 

627 

ENL(K+ 1 17 )=0. 

JJ = NAM + 1 
DO 628 I = 2 , NNLEQ 


001352 

001354 

001357 


00616 

00617 

253* 

254* 


DUM=AM( I . 1 )/AM( 1,1) 

ENL( I )=ENL( I )-ENL( 1 )*DUM 


001376 

001400 


00620 

00623 

255* 

256* 

628 

DO 628 J = JJ. NNLEQ 

AM( I , d)=AM( I , d) -DUM*AM( 1 , d) 


001407 

001407 


00626 

00627 

257* 

258* 


ENL( 0=0. 

DO 631 d = Jd, NNLEQ 


001420 

001425 


00632 

00634 

259* 

260* 

631 

AM( 1 ,d)=0. 
I TS= ITS+ 1 


001425 

001426 


00635 

00636 

261* 

262* 


EASE = AMIN1(EASE,0.2) 

IF (ITS - 101) 244,244,850 


001431 

001437 


00636 
0064 1 

263* 

264* 



B05A4300 

001437 

001445 


L. ' 

629 

'tVALUAI t UINtAK LlIKKtL 1 lUrJo 

DO 630 I = 1. MAT 11 


00644 

00647 

265* 

266* 

630 

DO 630 J= 1 . MAT 1 d 

FLE(I) = FLE(I) - DVNL(d) * BAI(I.d) 

B05A4320 

B05A4330 

001474 

001474 


00652 

00653 

267* 

268* 


JJ = MAT 1 J 
DO 635 J = 1 t NET A 

B05A4340 
ANK 8/83 

001505 

001512 


00656 

00657 

269* 

270* 


JJ = JJ + 1 
DO 635 1=1, MAT2I 

B05A4360 

B05A4370 

001512 

001514 


00662 

00665 

271* 

272* 

635 

GLE(I) = GLE(I) - DVNL(dd) * BA2(I,d) 
CORAR( 1 )=DVNL( 1 )/ALPH*0.5 

B05A4380 

001520 

001530 


00666 

00667 

273* 

274* 


L=NETA 
J=MAT 1 J+2 


001534 

001536 


00670 

00673 

275* 

276* 


DO 640 1=2, NET A 

CORAR(I) = DVNL(d)/AMAX1(G(NETA, 1 ) . 1 .0E4) 


001545 

001546 


00674 

00676 

277* 

278* 

640 

d=d+1 

IF (NSPM1 .LE. 0) GO TO 665 


001556 

001562 


00700 

00703 

279* 

280* 


DO 655 K = 1 , NSPM1 
DO 650 J .= 1 , NETA 

ANK 8/83 

001565 

001617 


00706 " 

00707 

281* 

282* 


JJ = JJ + 1 
DO 650 1=1 ,MAT2I 

B05A4460 

B05A4470 

001617 

001621 


00712 

00715 

283* 

284* 

650 

SPLE(I.K) = SPLE(I.K) - DVNL(dd) * BA2(I,J) 
d = MATId + K*NETA + 2 

B05A4480 
ANK 8/83 

001624 

001637 


00716 

00721 

285* 

286* 


DO 655 1=2, NETA 
L = L + 1 

B05A45 10 
B05A4520 

001646 

001646 


00722 

00723 

287* 

288* 

655 

CORAR( L )=DVNL( d ) 
d=d+1 


001652 

001654 


00726 

00730 

289* 

290* 

665 

IF (EASE . LT . 0.20) GO TO 673 

IF (CORAR( ICORM )/CORMA .LT. -0.330) BUMP = 2.0*BUMP 


001663 

001666 


00732 

00733 

291* 

292* 

673 

GO TO 675 

IF (ABS(1.0 - CORAR( ICORM) /CORMA ) .LE. 0.250) BUMP = BUMP/2. O 


001701 

001703 


00735 

00735 

293* 

294* 

675 

C 

CALL ABMAX(L,CORAR, CORMA, ICORM) 
CORRECT PRIMARY VARIABLES 

B05A4580 

001720 

001720 


00736 

00737 

295* 

296* 


DUM = 0.650/BUMP 

EASE=AMIN1 ( 1 . 5* EASE , 1 . 0 , DUM/ABS( CORMA ) ) 

ANK 4/83 

001725 

001730 


00740 

00742 

297* 

298* 


I F ( ITS . EQ . 2 ) BUMP=AMAX 1 ( BUMP , . 02/ABS( CORMA ) ) 

IF (KQ10 .GT. O) EASE=AMIN1(ABS(F( 1 , 3 )/(DVNL (3 )+ 1 . E-30)/2. ) , EASE) 

ANK 6/83 

001745 

001760 


00744 

00746 

299* 

300* 


IF (EASE .GE. 1.0) GO TO 740 
DO 730 I = 1,253 

ANK 4/83 

001776 

002005 


00751 

00753 

301* 

302* 

730 

IF (I .LE. 123) DVNLU) = DVNL( I ) *EASE 
FLE(I) = FLE(I) * EASE 

ANK 7/83 
B05A4800 

002005 

002014 


00755 

00756 

303* 

304* 

740 

PI EASE = PIEASE»( 1 .0 - EASE) 

CTE = F (NETA, 1 ) - F(1.1) - XM( 5 )/F (NETA , 2 ) 


002022 

002025 


00757 

00762 

305* 

306* 


DO 785 I = 1 . NETA 
F ( 1 , 2 ) = F(1 ,2) + DVNL( 1+3) 


002077 

002077 


00763 

00764 

307* 

308* 


F ( I , 4 ) = F ( 1 , 4 ) + FLE(2*NETA+i-2) 
IF (I . GT . 1) GO TO 765 


002102 

002105 


00766 

309* 


F ( 1 , 1 j = F ( 1 , 1 ) + DVNL(2) 


002111 




00767 

00770 

00771 

3 10* 
311* 
312* 

765 

F( 1 .3) = F( 1 ,3) + DVNL(3) 
GO TO 770 

F(I, 1) = F(I. 1) + FLE(I-I) 



002114 

002117 

002121 

00772 

313* 


F(I ,3) = F ( 1 , 3 ) + FLE(NETA+I-2) 



002123 

00773 

314* 

770 

LPI^MAT 1 J+I+1 



002127 

00774 

315* 


DO 785 K = NUL , NSPM1 



002132 

00777 

316* 


IF (I -EO. NETA) SP(I.I.K) = SP(I.I.K) + SPLE(1,K) 



002165 

01001 

317* 


IF (I .NE. NETA) SP(I.I.K) = SP(I.I.K) + DVNL(LPI) 



002172 

01003 

318* 


SP( I , 3 ,K ) = SP( I , 3 , K) + SPLE(NETA+I ,K) 



002201 

01004 

319* 


IF (I .LE. 1) SP(i,2,k) = SP(1,2.K) + DVNL(LPI- 1 j 



002210 

01006 

320* 


IF (I .GT. 1) SP ( I , 2 , K ) = SP ( I , 2 , K ) + SPLE(I.K) 



002216 

OIOIO 

321* 

785 

LPI = LPI + NETA 

ANK 

8/83 

002223 

01013 

322* 


ALPH=ALPH+DVNL( 1 ) 



002242 

01014 

323* 


RETHM0=-C3M( I S ) *RHOE( IS ) *UE ( IS) *CTE*VMUE ( IS )/VMU(NETA ) 



NEW002245 

01015 

324* 


ACCP=BET A\/( I S ) * VMUE (IS ) **2*R0KAP (IS)**2/2. 0/XI (IS) 



NEW002255 

01016 

325* 


ACCPK=ACCP*RHOE (IS ) * VMU( 1 )/ ( VMUE ( I S ) *RHO ( 1 ) ) 



NEW0O2266 

01017 

326* 


I F ( I LAMIN . EQ . 0)GO TO 79 



NEW002274 

01021 

327* 


I LAM=0 



NEW002276 

01022 

328* 


IF(S(IS). GT . 2 . *STURB . AND . ACCPK . GT . 1 . 1 E -06 )G0 TO 69 



NEW002277 

01024 

329* 


GO TO 79 



NEW0023 16 

01025 

330* 

69 

I F ( RETHMO . LT . 250 . )G0 TO 79 



NEW002320 

01027 

331* 


I LAM= 1 



NEW002323 

01030 

332* 


AA=8 . 935E “14 



NEW002325 

01031 

333* 


BB = 2 . 239E - 10 



NEW002327 

01032 

334* 


CC=1 .0247E-06 



NEW00233 1 

01033 

335* 


ACCPK 1 =AA*RETHM0**2+BB*RETHM0+CC 



NEW002333 

01034 

336* 


IF( RETHMO . LT . 4100. )G0 TO 98 



NEW002342 

01036 

337* 


I LAM=0 



NEW002346 

01037 

338* 


GO TO 99 



NEW002347 

01040 

339* 

98 

ACCPK2=3.5E-06 



NEW002351 

01041 

340* 

99 

I F ( ACCPK . LT . ACCPK 1 ) I LAM=0 



NEW002353 

01043 

341* 


I F ( ACCPK . GT . ACCPK2 ) I LAM= 1 



NEW002357 

01045 

342* 

79 

CONTINUE 



NEW002366 

01046 

343* 


IF (ITS -NE. 99 .OR. 1777 .EO. 777) GO TO 850 



002366 

01050 

344* 


1777 = 777 



002401 

01051 

345* 


ITS ■ 60 



002403 

01052 

346* 

850 

IF ( KO 10 -GT. -1 .OR. KQ10 . LT . -lO) RETURN 

ANK 

4/83 

002406 

01054 

347* 


RETHMO = -C3M( IS ) *RHOE (IS)*UE(IS) *CTE*VMUE( IS)/VMU(NETA ) 

ANK 

8/83 

002426 

01055 

348* 


IF ( RETHMO. GT.RETR) STURB = S(IS) 



002440 

01057 

349* 


IF (RETHMO .GT. RETR) KQ10 = -lO 

ANK 

4/83 

002447 

01061 

350* 


I F (RETHMO . GT . RETR ) I LT=2 



NEW002455 

01063 

351* 


IF (RETHMO .LT. RETR) KQ10 = -1 

ANK 

4/83 

002463 

01065 

352* 


I F ( RETHMO .LT.RETR)ILT=1 



NEW00247 1 

01067 

353* 


RETURN 

B05A5350 

002477 

01070 

354* 


END 

B05A5360 

002561 


END OF COMPILATION: NO DIAGNOSTICS. 


J J 


J 


J 
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@SYS$»MSFCFOR$. FOR.WUS OUTPUT 
HSA E3 -12/10/84-22:24:00 (39,40) 

-8,8 

C0MM0N/EbGCbM/DSP(53).PE(56),RH0E(350)','fE(51)'ifVCC(50)'/UE(50)'. 

$ VMUE ( 50) 

-30 

COMMON/RU F / DUMM 1 , DUMM2 , DUMM3 , DUMM4 , DUMM5 , DUMM6 , DUMM7 , DUMM8 , DUMM9 , 

$" bUMMiO.buMMI 1 7dUMMT 2"RK'V iCF '. FMF i' DUMM 16 VDUMM 

COMMON/PART I /PARTM , DUMM24 , RHOPA . DUMM23 . CPART , WP , DUMM 1 9 , WF , 

$bUMM22, DUMM2b,DUMM2liLf.PF,Ak,RP,iPARf 

COMMON /LAM/ ILAMIN 

-37 

COMMON/ ACCN/ ACCPK , ILAM . SPCT 

COMMON/ R E TH/RE THMO 

DIMENSION DM 1(15), DM2 (15) 

-99,99- 

\///\/\ 

-196 

IF( I PART . EO . 1 )G0 TO 40 

I F ( ICF . GT . O . AND . ICF LT ' 3 )60 TO 40 

GO TO 41 

40 DUMM 1 =DER ( 11 ) * 2 

DUMM2=DER( 12) 

bUMM3=S ( I S ) 

AM=F ( NET A , 2 )/ ALPH*UE (IS )/SORT ( GMR( NETA ) /VMW( NETA ) *TT ( NETA ) *49732 . ) 

REFF=(T.+( GMR(NETA)- i! )/2. *PR(NETA)*i7333*AM»*2)/ 

$ ( 1 . +(GMR (NETA ) - 1 . )/2 . *AM**2) 

DO 42 1 = 1 i NETA 

DM1 ( I )=CPBAR( I )*UCT/UCE 

bM2m=ff(i)7Ucf 

42 CONTINUE 

bZERb=bM1( 1 )-(bM1(2)-bMi(^ T ^))7(bM2(2)-bM2('l) 

AINT=0 . 5* ( DZER0+DM1 ( 1 ) ) *DM2( 1 ) 

bUMM'6-AiNf ! 

DO 43 1=2, NETA 

AiNT=AiNT+b':5*(bMi(i-i)+b 

43 CONTINUE 

bUMM4=AINT 

DUMM5=(DUMM4+(G(NETA, 1 )-HB(NETA)/UCE) )*REFF 

bUMM7=RHb(NETA) 

DUMM8=RH0( 1 ) 

DUMM9 =VMU ( 1 ) 

DUMM10=VMUE( IS) 

DUMM1 1=PR ( NET A ) 

DUMM12=UE( IS) 

iF(iPART.Eb.l7ANb/(iCF.EQ/bV'OR7iCF 

AFACT=0 52 , 

C A L LR bUGH (AF A CT ) 

CF=DUMM18/2. 

ST=DUMM16 

WALLQ=ST*(G(NETA, 1 )-G( I . 1 ) )*RHOE( IS)*UE( IS) 

4 1 CONTINUE 

IF( I PART . EO . 1 )G0 TO 45 

GO TO 44 

45 IF(ICF.EO.O. OR. ICF . EO . 3 )G0 TO 46 

bUMMi=DUMMi8 

DUMM2=DUMM 1 6 

46 CONTINUE 

DUMM5=G(NETA, 1) 

bUMM6=G( 1 . 1 ) 



DUMM 19=CPBAR ( NETA ) *UCT/UCE 
DUMM20=RE FF*TE ( 1 )/UCT 
DUMM2 1 =TT ( 1 )/UCT 

D U MM 2 2 = D U M M 1 9 * V MU ( N E T A ) / U C V /DUMM 1 i 

DUMM2 3= ( DUMM7 *DUMM 12*2. *R0KAP ( I S ) /RAD5 ) /DUMM 1 0 

P A R T M = (4 . / 3 . ) * (22 . / 7 . ) * ( ( R P / 1 2 . j * * 3 j * R HO PA 

DUMM24=PARTM*DUMM 12/ ( (22. /7. ) *6 . *RP/ 1 2 . +DUMM10) 

CALL PART CL 

CF=DUMM 1 8/2 . 

ST=DUMM 16 

WALLG=ST*(G(NETA, 1 )-G( 1 . 1 ) )*RHOE( IS)*UE( IS ) 

44 CONTINUE 
-204 

I "f"( IPA Ss V E Q." O) " WRI TE*( 3 j'CF* j'CH ^ WALLO 

-235 

ACCPK = ACC P * RHO E ( I S ) * VMU ( 1 ) / ( VMU E ( I S ) * RHO ( 1 ) ) 

-240 

I F ( I C F ”e O i 6 ) GO TO 1111 

WRITE ( 6 , 1009) 

1009 FORMAT ( / , IX , 56 ( V * V j "y " p £ MT E CH INC I 1 1 S 4 ^ J ’J 

1010 FORMAT ( / , IX, 132('*')) 

write ( 6 , i 666 )icF,Rk 

1000 FORMAT ( / , 2X , ' ROUGHNESS MODULE USED - OPTION ',12,/, 

$ 6 X , * E Q U I V A L E NT S A N D R OUGHN ESS HE I GH T , RK = ‘“ v E 16/37' '(FEET)O 

IF(ICF.EQ.3)G0 TO 1112 

R F ACT = D U M M 16/ D U MM2 

IF (DUMM 17 . EG . 0 . O) WRITE ( 6 , 1001 )RFACT 

fFToufiiT^ and .dummiTXt7k 

I F ( DUMM 1 7 . EO - 1 .0) WRITE (6, 1003 )RF ACT 
i oo i F 0 RM A T ( 6 X7 ; S MOO T H ' , i 4X /20X , ' ROU GHN E S S F A C T OR = ' , p j 3 j 

1002 F0RMAT(6X, 'TRANSITIONALLY ROUGH' , 20 X , ' ROUGHNESS FACTOR = '.F7.3) 

1003 F 6 RM A T (6X7 'ROUGH '7 15X7 20X /' ROU GHNE S S FA CTO R ” ’3 ) 

WRITE ( 6 , 1 008 )CF , ST , WALLQ 

1008 FORMAT ( IX cf/ 2 ^ ST ^ ■*“ 1673/5X7 * 

$ 'HEAT F LUX= * , 1 PE 10 . 3 ) 

GO TO i ill : 

1112 CONTINUE 

I F ( ABS ( DU MM 1 7 ) 7L £76 - 66 1 ) WR I T E ( 6 , 1 004 ) 

I F ( ABS( DUMM 17- 1 . ) . LE .0.001 ) WRITE (6, 1005) 

I F ( A B S ( DU MM 1 7 - 2 . ) ” L E . 6 . OOI 5 W R IT E ( 6 , 1 006 J * 

1004 FORMAT ( 6 X, 'SMOOTH' ) 

1005 FOR M A T (6X7 'ROU GH ' ) 

1006 FORMAT ( 6 X , ' RKS BEYOND UPPER LIMIT - EQUATION BECOMES INVALID - ' , 

$ ' THEREFORE RKS = 6 Vo ’ WAS" USEDi 7 ') 

WRITE ( 6 , IOIO) 

Till CONTINUE 

I F ( IPART . EQ . 1 )G0 TO 1301 

GO TO 1302 

1301 WRITE ( 6 , 1009) 

I F ( I L T 7 E 67 1 ) W R IT E ( 6 , 1 303 ) R P , AK i P F 

1303 FORMAT(/, 2 X, 'PARTICLE MODULE USED ',/, 6 X .' LAMINAR FLOW'.SX, 

$ ' P ART I C L E SI 2 E R P = '7 El 6 . 3 / ' TlT R AD IU S ' 7/ il X i' P ARTICLE" "Lo AD I ®" ; " V 

$ FIO. 2, IOX, 'PARTICLE FACTOR =',F10.4) 

I F ( I L f . E Q" 2 ) W R IT E ( 6 . 1 305 ) R P, WP , P F 

1305 F0RMAT(/,2X, 'PARTICLE MODULE USED ',/, 6 X ,' TURBULENT FL0W',5X, 

$ ' PAR T I C L E SIZER P = ' , E 10 . 3 " * 'IN RAD I U S ' , ) , 1 X , ' P A R T I C L E L 0 AD I NG = ' , 

$ FIO. 2, IOX, 'PARTICLE FACTOR =',F10.4) 

W R IT E ( 6 f 1 008 ) C F , ST * WALLO 

WRITE ( 6 , IOIO) 

1302 CONTINUE 


j 




J 




J 


j 



i. i ! . i ' ;i ) ] ] ] ] " i ' ] ! : j ] ] i i 

W 


I F ( I LAM IN . EO . O . OR . ILAM . EQ . O)G0 TO 1211 
WRITE(6, 1009) 

WRITE ( 6 , 1 200) SPOT 

1200 F 0 R M A T ( / , 2X , ' R E LAMINAR I Z ATI ON OCCURED'V/i : 

$ 2X t ' DEGREE OF RELAMINARIZATION = ',€10.3.' PERCENT') 

WRITE (6 , lOiO) 

1211 CONTINUE 

WRITE (6, 1 007 ) R ETHM 0 , A C C P , A CCPK 

1007 FORMAT ( / , IX , ' RETHMO ACCN PARA ACCN PARA', /.IX, 

( EDGE ) (WAL L )', / , 3X , 1 P 3E 10.3) 


SUBROUTINE OUTPUT ENTRY POINT 003775 


STORAGE USED: C 0 D E ( 1 ) 004 015; DAT A ( 6 ) 66 1 25 i ; B E ANK C OMMO N ( 2 ) OOOOOO 


COMMON 

BLOCKS 



0003 

AL 

000002 


0004 

BLQCOM 

002043 


0005 

COECON 

0003 17 


0006 

CONSTS 

OOOOIO 


0007 

CRBCOM 

000111 


0010 

EDGCOM 

001216 


001 1 

EPSCOM 

000040 


0012 

EQPCOM 

002243 


0013 

ETACOM 

000017 


0014 

FLXCOM 

000020 


0015 

HISCOM 

000426 


0016 

HOLLER 

000056 


0017 

INPUTI 

000015 


0020 

INTCOM 

000123 


0021 

INTER I 

000004 


0022 

PRMALS 

000243 


0023 

PRMORG 

000455 


0024 

PRPCOM 

000303 


0025 

PRPERT 

000151 


0026 

PRPIOP 

000016 


0027 

PRPNPT 

000056 


0030 

RFTCOM 

000045 


0031 

RUF 

000022 


0032 

PARTI 

000020 


0033 

LAM 

OOOOOI 


0034 

SAHA 

000151 


0035 

SAVOUT 

000021 


0036 

TEMCOM 

000201 


0037 

TURB 

000020 


0040 

UNICOM 

OOOO 1 1 


0041 

VARCOM 

000645 


0042 

WALL 

000454 


0043 

ACCN 

000003 


0044 

RETH 

OOOOOI 



E XT E RN A L REF E R E NC E S ( BLOCK , NAME) 


0045 ROUGH 

0046 PARTCL 

0047 REFIT 



0050 ATAN2 

0051 COS 

0052 NWDU$ 

0053 KilO 1$ 

0054 NI03$ 

0055 NIC) 2$ 

0056 NWBU$ 

0057 SORT 

0060 XPRR 

0061 NERR3$ 


SJORAGE ASS IGNMENT (BLOCK p TYPE_, RELATIVE .LOCATION, .NAME ) 


oooo 


000 1 1 1 

IF 

OOOO 


000413 

1000F 

OOOO 


000437 

1001 F 

OOOO 


000450 

1002F 

OOOO 


000463 

1003F 

0000 


0005 1 2 

1004F 

OOOO 


0005 1 5 

1005F 

oooo 


000520 

1006F 

OOOO 


000650 

10O7F 

OOOO 


000474 

1008F 

oooo 


000377 

1009F 

oooo 


000410 

101 OF 

OOOI 


002343 

1 1 1 1 L 

OOOI 


002277 

1 1 12L 

OOOI 


002544 

1 155G 

oooi 


002552 

1 163G 

oooo 


000722 

12F 

oooo 


000630 

1200F 

OOOI 


002447 

1 2 1 1 L 

0001 


002641 

1220G 

0001 


002653 

1231G 

oooo 


001070 

13F 

oooi 


002347 

1 301 L 

OOOI 


002417 

1 302 L 

oooo 


000540 

1303F 

oooo 


000574 

1305F 

0001 


003101 

1307G 

0001 


003107 

1313G 

OOOI 


0031 15 

1317G 

oooi 


003127 

1330G 

oooo 


001 122 

14F 

OOOI 


003255 

1406G 

0001 


003273 

1417G 

OOOI 


003302 

1425G 

oooi 


0033 1 3 

1434G 

0001 


003324 

1442G 

OOOI 


003363 

1453G 

OOOI 


003364 

1456G 

OOOI 


003423 

1472G 

oooo 


OOI 134 

15F 

OOOI 


003432 

1500G 

OOOI 


003554 

1537G 

OOOI 


003562 

1544G 

OOOI 


003603 

1553G 

oooi 


003614 

1 56 1 G 

OOOI 


003654 

1577G 

OOOO 


OOI 141 

16F 

OOOI 


003667 

1605G 

oooi 


003707 

1615G 

oooi 


000041 

166G 

0000 


001 145 

17F 

oooo 


0002 1 5 

18F 

0001 


003035 

184L 

OOOI 


003173 

1 85L 

oooo 


000151 

2F 

oooo 


001002 

20F 

0001 


00054 1 

202 1L 

OOOI 


000123 

204G 

OOOI 


003377 

204 1L 

oooi 


001041 

207 1L 

0001 


001047 

2074L 

0001 


001224 

207 8 L 

OOOO 


000330 

2 1 F 

0001 


000260 

2103L 

0001 


000246 

2104L 

0001 


000271 

2105L 

0001 


000317 

2106L 

OOOI 


000556 

2135L 

OOOI 


000625 

2137L 

oooo 


000374 

22F 

oooo 


000205 

23F 

oooo 


000326 

24F 

oooo 


001 103 

25F 

OOOI 


000334 

262G 

oooo 


0002 1 2 

3F 

oooi 


000371 

30L 

oooi 


000047 

305 1L 

OOOI 


000433 

314G 

0001 


000436 

3 16G 

oooi 


000444 

323G 

oooi 


003460 

325L 

0001 


003744 

327L 

OOOI 


000477 

336G 

OOOI 


000513 

347G 

oooi 


000707 

35L 

0001 


000516 

352G 

0001 


000574 

373G 

oooo 


000263 

4F 

0001 


001334 

40L 

0001 


000604 

400G 

0001 


000457 

400L 

0001 


003623 

4002L 

oooi 


003700 

4012L 

0001 


003534 

4019L 

oooi 


003565 

402 1L 

0001 


003630 

4022L 

OOOI 


000607 

404G 

oooi 


001543 

4 1 L 

OOOI 


00066 1 

423G 

0001 


000673 

43 IG 

0001 


001657 

44L 

0001 


001547 

45L 

oooi 


000776- 

455G 

OOOI 


001565 

46L 

0001 


001007 

463G 

oooo 


001062 

5F 

0001 


002074 

50L 

OOOI 


001070 

502G 

OOOI 


001205 

514G 

0001 


001275 

525G 

oooi 


002477 

55L 

0001 


001415 

551G 

OOOI 


001444 

563G 

OOOO 


000671 

6F 

0001 


003227 

60L 

oooi 


001707 

642G 

0001 


003343 

65L 

OOOI 


001745 

664G 

OOOI 


001763 

674G 

oooo 


000726 

7F 

oooi 


001775 

704G 

0001 


002023 

717G 

OOOI 


002040 

730G 

0001 


002070 

746G 

oooo 


001010 

8F 

0015 


oooooo 

A 

oooo 

R 

000062 

ACCP 

0043 

R 

OOOOOO 

ACCPK 

OOOO 

R 

000055 

ACH 

oooo 

R 

000047 

ADR 

oooo 

R 

oooioi 

AFACT 

oooo 

R 

OOOOOO 

AINT 

0032 

R 

000015 

AK 

0041 

R 

OOOOOO 

ALPH 

oooo 

R 

000076 

AM 

0016 

I 

oooooo 

AREA 

oooo 

R 

000057 

ARET 

0007 


OOOOOO 

ASU 

0012 

I 

OOOOOO 

ATA 

0012 

I 

OOOOIO 

ATB 

0015 

R 

oooooi 

BETAP 

0015 

R 

000063 

BETAV 

OOOO 

R 

000073 

BLOW 

0015 


000146 

C 

0025 

R 

OOOOOO 

CAPC 

0020 


oooooo 

CASE 

oooo 

R 

000064 

CF 

OOOO 

R 

000063 

CH 

0005 


OOOOOO 

CK 

OOI 1 


oooooo 

CLNUM 

0036 

R 

oooooo 

CM 

oooo 

R 

000106 

COND 

0022 

R 

OOOOOO 

COSALF 

oooo 

R 

000044 

COSOR 

0032 


000004 

CPART 

0025 

R 

OOOO 1 7 

CPBAR 

0006 


OOOOOO 

CPFL 

0034 

R 

OOOOOO 

CPH 

0016 

I 

000002 

CO 

0026 

R 

oooooo 

CRHO 

0015 

R 

000145 

Cl 

0015 

R 

000147 

C3M 

OOOO 

R 

000045 

C89 

oooo 

R 

000072 

DELBD 

oooo 

R 

000067 

DELST 

0022 

R 

000062 

DELTBD 

0016 

I 

000006 

DENS 

0036 

R 

000007 

DER 

oooo 

R 

in 

h* 

8 

O 

o 

DF 

0016 

I 

OOOOIO 

DIST 

OOI 1 

R 

OOOOOI 

DL 

oooo 

R 

OOOOOI 

DM1 

OOOO 

R 

000020 

DM2 

0024 


oooooo 

DRHOH 

OOIO 


8 

8 

8 

DSP 

0036 

R 

000071 

DUDS 

0031 

R 

OOOOOO 

DUMM1 

0031 

R 

OOOOI 1 

DUMM10 

0031 

R 

0000 1 2 

DUMM1 1 

0031 

R 

000013 

DUMM12 

0031 

R 

OOOO 1 7 

DUMM16 

0031 

R 

000020 

DUMM17 

0031 

R 

000021 

DUMM18 

0032 

R 

000006 

DUMM19 

0031 

R 

OOOOOI 

DUMM2 

0032 

R 

OOOO 11 

DUMM20 

0032 

R 

000012 

DUMM21 

0032 

R 

OOOOIO 

DUMM22 

0032 

R 

000003 

DUMM23 

0032 

R 

OOOOOI 

DUMM24 

0031 

R 

000002 

DUMM3 

0031 

R 

000003 

DUMM4 

0031 

R 

000004 

DUMM5 

0031 

R 

000005 

DUMM6 

0031 

R 

000006 

DUMM7 

0031 

R 

600007 

DUMM8 

0031 

R 

OOOO 10 

DUMM9 

OOOO 

R 

000066 

DUM3 

OOOO 

R 

r- 

o 

o 

8 

DUZ 

OOOO 

R 

000105. 

DW 

OOOO 

R 

000054 

DX 

oooo 

R 

000 ioo 

DZERO 

0007 

R 

000006 

EMIS 

0007 


000007 

EMISC 

0016 

I 

000012 

ENERGY 

0035 

R 

666666 

ENTHAL 

0011 

R 

000021 

EPSA 

0013 

R 

OOOOOO 

ETA 

' 0041 

R 

OOOOOI 

F 

OOOO 

I 

000037 

FLOW 

0042 


oooooo 

FLUX J 

0031 


000016 

FMF 

0004 

R 

OOOOOO 

FR 

0030 

R 

OOOOOO 

F2FIX 

0030 

R 

000017 

F2FIXT 

0041 

R 

000075 

G 

0006 

R 

000002 

GC 

0025 

R 

000036 

GMR 

0027 

R 

OOOOOO 

HB 

OOOO 

R 

000056 

HEAD 

0016 

I 

000016 

HEAT 

0015 

R 

000231 

HF 

0016 

I 

000022 

HWALL 

OOOO 

I 

000051 

I 

0017 


OOOOOO 

IB 

0031 

T 

000015 

ICF 

0023 


OOOOOO 

IDISC 

0017 

I 

000005 

IFLOW 

0017 


000006 

IG 

0043 

I 

OOOOOI 

ILAM 

j 


1 

- — > 

) 

J 


.J 

J 

J 

J ..... 



J 

i 

1 

J 

j 

] ’V ] .... 


w 


0033 

I 

oooooo 

ILAMIN 

0032 

I 

000013 

ILT 

OOOO 


001211 

I NJP$ 

0032 

I 

000017 

IPART 

0034 

I 

000063 

IPASS 

0003 


oooooo 

I PLOT 

0034 

I 

000064 

IRITE 

0020 

I 

000020 

IS 

0020 


000021 

ISH 

0022 

I 

000147 

1ST 

0007 

I 

000025 

ISU 

0017 

I 

000007 

I TDK 

0017 


OOOOIO 

ITH 

0034 


000065 

ITRCNT 

0022 


000150 

IU 

0003 

I 

OOOOOI 

IUNIT 

0017 

I 

OOOOI 1 

I WALL 

OOOO 

I 

000060 

J 

0017 


000012 

JW 

OOOO 

I 

000046 

K 

0020 

I 

000023 

KAPPA 

0030 

I 

000036 

KAPPAL 

0030 

I 

000037 

KAPPAT 

0021 


OOOOOO 

KBC 

0020 

I 

000024 

KONRFT 

0021 

I 

000003 

KQ 10 

0021 

I 

000002 

KQ9 

0020 


000025 

KR9 

0007 


000026 

KS 

0030 

I 

000040 

KTURB 

0004 


001604 

L2 

OOOO 

I 

000110 

M 

0016 

I 

000024 

MASS 

0004 

I 

001646 

MOA 

0004 

I 

001742 

MOB 

0012 

I 

000432 

NEL 

0020 

I 

0001 14 

NETA 

0030 

I 

000041 

NETAL 

0030 

I 

000042 

NETAT 

0020 


OOOI 15 

NNLEO 

0020 

I 

0001 16 

NON 

0030 


000043 

NPOINT 

0020 


000117 

NRNL 

0020 

I 

000120 

NS 

0034 

I 

000066 

NS J 

0020 

I 

000121 

NSP 

0004 

I 

002036 

NSPEC 

0020 

I 

000122 

NSPM1 

0017 

I 

000014 

NTROPY 

OOOO 

I 

000043 

NUM 

0012 


000433 

P 

0032 

R 

OOOOOO 

PARTM 

0006 

R 

000003 

PATM 

OOIO 

R 

000065 

PE 

0032 

R 

000014 

PF 

0006 


000004 

PI 

0004 


002037 

PI EASE 

OOOO 

R 

000104 

PITOT 

OOOO 

R 

000061 

POUT 

0025 

R 

000055 

PR 

OOOO 

I 

000041 

PRES 

0016 

I 

000030 

PRESS 

OOOO 

R 

000053 

ODIFU 

0034 

R 

000067 

QWG 

0022 


000156 

RADFL 

0023 

R 

000227 

RADS 

0022 

R 

000154 

RADS 

0022 

R 

000155 

RAD6 

0030 

R 

000044 

RATLIM 

OOOO 

R 

000077 

REFF 

0044 

R 

OOOOOO 

RETHMO 

0016 

I 

000034 

REY 

OOOO 

R 

000103 

RFACT 

0027 

R 

000037 

RHO 

0010 

R 

000147 

RHOE 

0032 

R 

000002 

RHOPA 

0042 

R 

000372 

RHOVW 

0031 

R 

000014 

RK 

0023 

R 

000311 

ROKAP 

0032 

R 

000016 

RP 

0022 

R 

000157 

RTM 

0006 

R 

000006 

RVAR 

0023 

R 

000373 

S 

0025 

R 

000074 

SC 

OOOO 

R 

000052 

SHEAD 

0016 

I 

000036 

SHEAR 

OOOO 

R 

000050 

SHFAC 

0006 

R 

000007 

SIPSF 

004 1 

R 

000152 

SP 

0043 

R 

000002 

SPOT 

OOOO 

R 

000102 

ST 

0007 

R 

OOOI 10 

STEF 

0037 


OOOOOO 

STURB 

0022 

R 

000160 

SUMQG 

0016 

I 

000040 

TOON 

0010 

R 

000705 

TE 

0016 

I 

000044 

TEMP 

0036 

R 

000153 

THELEM 

OOOO 

R 

000070 

THENGY 

OOOO 

R 

000071 

THMOM 

0016 

I 

000046 

THRUST 

0014 

R 

000017 

TPWALL 

0025 

R 

000113 

TT 

0037 

R 

OOOOOI 

TURPR 

OOIO 

R 

000770 

TVCC 

0040 

R 

OOOOOO 

UCD 

0040 

R 

OOOOOI 

UCE 

0040 

R 

000002 

UCL 

0040 

R 

000003 

UCM 

OOOO 

R 

000065 

UCMF 

0040 

R 

000004 

UCP 

0040 

R 

000005 

UCR 

0040 

R 

000006 

UCS 

0040 

R 

000007 

UCT 

0040 

R 

OOOOIO 

ucv 

0010 

R 

001052 

UE 

0035 

R 

OOOOOI 

UKAPPA 

0016 

I 

000050 

VEL 

0016 

I 

000052 

VIS 

OOOO 

R 

000107 

vise 

0014 

R 

OOOO 10 

VJKW 

0024 

R 

000264 

VMU 

OOIO 

R 

001134 

VMUE 

0025 

R 

000132 

VMW 

0012 

R 

001176 

VNU 

0004 

R 

002040 

W 

0035 

R 

000020 

WALLA 

0014 

R 

OOOOOI 

WALLJ 

0014 

R 

OOOOOO 

WALLO 

0012 

R 

002136 

WAT 

0032 


000007 

WF 

0032 

R 

000005 

WP 

0012 

R 

002147 

WTM 

0005 

R 

000247 

XG 

0015 

R 

000344 

XI 

0005 

R 

000242 

XM 

0005 

R 

000254 

XSP 

0022 

R 

000161 

XST 

0036 

R 

000162 

Y 






00101 

1* 


SUBROUTINE OUTPUT 

B 1 1 A 002 

OOOOOO 

00101 

2* 

C 



OOOOOO 

00103 

3* 


COMMON /AL/ IPLOT, IUNIT 

/AL/ 

OOOOOO 

00104 

4* 


COMMON /BLQCOM/ FR(60, 1 5 ) , L2 ( 34 ) , MOA( 60) , MOB( 60) , NSPEC . PI E ASE , W( 3 )/BLQCOM/ 

OOOOOO 

00105 

5* 


COMMON /COECON/ CK( 162) , XM( 5 ) . XG(5 ) , XSP( 5 , 7 ) 

/COECON/ 

OOOOOO 

00106 

6* 


COMMON /CONSTS/ CPFL( 2 ) . GC . PATM . PI ( 2 ) . RVAR , SIPSF 

/CONSTS/ 

oooooo 

00107 

7* 


COMMON /CRBCOM/ ASU(6 ) . EMIS , EMISC( 14 ) , ISU , KS( 50) , STEF 

/CRBCOM/ 

oooooo 

001 10 

8* 


COMMON/EDGCCIM/DSP(53) ,PE(50) ,RH0E(350) ,TE(51 ) ,TVCC(50) ,UE(50) , 


NEWOOOOOO 

ooi io 

9 * 


$ VMUE (50) 


NEWOOOOOO 

001 1 1 

10* 


COMMON /EPSCOM/ C LNUM . D L ( 1 6 ) . E PS A ( 1 5 j 

/EPSCOM/ 

- 01 oooooo 

00112 

11* 


COMMON/ EQPCOM/ ATA(8 ) , ATB(274 ) , NEL , P( 355) , VNU (60, 8 ) , WAT(9 ) , WTM (60) 

/EOPCOM/ 

oooooo 

00113 

12* 


COMMON /ETACOM/ ETA (15) 

/ETACOM/ 

oooooo 

001 14 

13* 


COMMON /FLXCOM/ WALLO , WALLU( 7 ), VJKW( 7 ). TPWALL 

/FLXCOM/ 

oooooo 

001 15 

14* 


COMMON /HISCOM/ A , BETAP( 50) , BETAV( 50) , C 1 ,C,C3M(50) , HF ( 1 5 , 5 ) , xi ( 50)/HI SCOM/ 

oooooo 

001 16 

15* 


COMMON /HOLLER/ AREA( 2 ) , CQ( 2 , 2 ) , DENS( 2) , DI ST( 2 ) , ENERGY (4 ) , HEAT( 2 . 

/HOLLER/ 

oooooo 

OOI 16 

16* 


12), HWALL ( 2 ) , MASS( 2,2), PRESS(4 ) , REY (2) , SHEAR (2 j , TCON( 2 . 2 ) , TEMP( 2 ) 

, /HOLLER/ 

oooooo 

001 16 

17* 


2 THRUST (2),VEL(2),VIS(2,2) 

/HOLLER/ 

oooooo 

OOI 17 

18* 


COMMON / INPUT 1/ IB(5) , IFLOW, IG , iTDK , ITH. I WALL , dW( 2 ) , NTROPY 

/INPUTI/ 

oooooo 

00 1 20 

19* 


COMMON /INTCOM/ CASE( 16) , IS , ISH( 2 ), KAPPA , KONRFT ,KR9(55) , 

/INTCOM/ 

oooooo 

00120 

20* 


1 NETA , NNLEO , NON , NRNL , NS , NSP , NSPM1 

/INTCOM/ 

oooooo 

00121 

21* 


COMMON /INTERI/ KBC( 2 ) ,KQ9 , KQIO 

/INTERI/ 

oooooo 

00122 

22* 


COMMON /PRMALS/ COSALF ( 50) . DELT BD( 53 ) , 1ST, IU(4) , 

/PRMALS/ 

oooooo 

00122 

23* 


1 R AD5 , RAD6 .RADFL, RTM , SUMOG , XST ( 50 ) 

/PRMALS/ 

oooooo 

00123 

24* 


COMMON /PRMdRG/ IDISC( 151 ) , RADS (50) . ROKAP ( 50) , S( 50) 

/PRMORG/ 

oooooo 

00124 

25* 


COMMON /PRPCOM/ DRHOH (180), VMU ( 1 5 ) 

/PRPCOM/ 

oooooo 

00125 

26* 


COMMON /PRPERT/ CAPC( 15), CPBAR (15). GMR (15). PR ( 15 ) . SC ( 15) ,TT( 15) . 

/PRPERT / 

oooooo 

00125 

27* 


1 VMW( 15) 

/PRPERT/ 

oooooo 

00126 

28* 


COMMON /PRPiOP/ CRH0(i4) 

/PRPIOP/ 

oooooo 



00127 

00130 

00130 

29* 

30* 

31* 



COMMON /PRPNPT/ HB( 3 1 ) , RHO( 15 ) 

COMMON /RFTCOM/ F2FIX( 15) ,F2F IXT ( 15 ) , KAPPAL , KAPPAT , KTURB , NETAL, 
1 NETAT , NPOINT , RATLIM 

/PRPNPT/ 

/RFTCOM/ 

/RFTCOM/ 

oooooo 

oooooo 

oooooo 

00131 

00131 

32* 

33* 



COMMON/RUF/DUMM 1 , DUMM2 , DUMM3 , DUMM4 , DUMM5 , DUMM6 , DUMM7 , DUMM8 , DUMM9 , 
$ DUMM 1 0 , DUMM 1 1 , DUMM 12,RK,ICF,FMF, DUMM 1 6 , DUMM 1 7 , DUMM 1 8 


NEWOOOOOO 

NEWOOOOOO 

00132 

00132 

34* 

35* 



COMMON/PART I/PARTM , DUMM24 , RHOPA , DUMM23 , CPART , WP , DUMM i 9 , WF , 
$ DUMM22 , DUMM20 , DUMM2 1 , I LT , PF , AK , RP , I PART 


NEWOOOOOO 

NEWOOOOOO 

00133 

00134 

36* 

37* 



COMMON /LAM/ IL AMIN 

COMMON /SAHA/ CPH( 51 ) , IPASS , IRITE , ITRCNT , NSJ , QWG( 50) 

/SAHA/ 

NEWOOOOOO 

OOOOOO 

00135 

00136 

38* 

39* 



COMMON /SAVdUT / ENTHAL .UKAPPA ( 15). WALLA 

COMMON /TEMCOM/ CM( 7 ) , DER ( 50) , DUDS( 50) , THELEM( 7 ) , Y ( 1 5 ) 

/SAVOUT/ 

/TEMCOM/ 

OOOOOO 

OOOOOO 

00137 

00140 

40* 

41* 



COMMON '/TURB/ STURB , TURPR ( 15) 

COMMON /UNICOM/ UCD ,UCE ,UCL , UCM , UCP ,UCR . UCS , UCT , UCV 

/TURB/ 

/UNICOM/ 

OOOOOO 

OOOOOO 

00141 

00142 

42* 

43* 



COMMON /VARCOM/ ALPH , F (1 5 , 4 ) , G( 1 5 , 3 ) . SP( i 5 , 3 , 7 ) 
COMMON /WALL/ FLUXJ( 250) , RHOVW( 50) 

/VARCOM/ 
/ WALL/ 

OOOOOO 

OOOOOO 

00143 

00144 

44* 

45* 



COMMON/ ACCN/ACCPK, ILAM.SPCT 
COMMON/RETH/RETHMO 


NEWOOOOOO 

NEWOOOOOO 

00145 

00145 

46* 

47* 

c 


DIMENSION DM1( 15) ,DM2( 15) 


NEWOOOOOO 

OOOOOO 

00146 

00147 

48* 

49* 



DIMENSION FLOW( 2 ) , PRES(2 ) 

INTEGER AREA , CO, DENS ,DIST , ENERGY , FLOW, HE AT , HWALL ,PRES,PRESS,REY, 

ANK 5/83 
ANK 8/83 

OOOOOO 

OOOOOO 

00147 

00150 

50* 

51* 



1 SHEAR , TCON , TEMP , THRUST , VEL, VI S , ATA , ATB 

DATA FLOW/ 1 2HKG/SECLB/SEC/ , NUM/6HNUMBER/ , PRES/ 1 2H( N/M2 ) LB/IN2/ 

ANK 8/83 

OOOOOO 

OOOOOO 

00150 

00154 

52* 

53* 

c 


TVCF (X) = ( SORT ( AMAX1 (0. , 1 . +2 . *C0S0R*X) ) - 1 . )/COSOR 


OOOOOO 

oooooo 

00154 

00155 

54* 

55* 

c 


IF ( I WALL .GT. 2) RHOVW(IS) = C1*F(l,1) + HF(1,5) 

ANK 4/83 

oooooo 

oooooo 

00157 

00160 

56* 

57* 



C89 = -ALPH*C3M( IS)*VMUE( IS) 
WALLO = - WALLO/ C3M( IS) 

ANK 8/83 
ANK 8/83 

000012 

000017 

00161 

00162 

58* 

59* 



DER( 3 ) = WALLQ - RHOVW( I S ) *G( 1 , 1 )/C3M( IS ) 
WALLJ(NSP)=0. 

ANK 8/83 
B 1 1 A 149 

000022 

000027 

00163 

00165 

60* 

61* 



IF (NSPM1 . LE. 0) GO TO 3051 
DO 305 K = 1 , NSPM 1 


000031 

000034 

00170 

00171 

62* 

63* 


305 

WALL J ( K ) =VJKW ( K ) 

WALLO (NSP )=WALL J(NSP ) -WALLJ(K) 

B 1 1 A 151 
B 1 1 A 152 

000041 

000042 

00173 

00174 

64* 

65* 

3051 

DER( 1 ) = W( 2 )/C3M( IS ) 
DER ( 2 ) = W(3)/C3M( IS) 

ANK 8/83 
ANK 8/83 

000047 

000052 

00175 

00176 

66* 

67* 



ADR = ( W( 2 ) + W(3) - RHOVW (IS)) /C3M (IS) 

IF ( ADR* lOO . 0 -LT. RHOVW (IS)/ C3M (IS)) ADR = 0.0 

ANK 8/83 
ANK 8/83 

000055 

000063 

00200 

00201 

68* 

69* 



Y( 1) = 0.0 

SHFAC = -UE( IS)/ ( ALPH**2*C3M( IS )*GC ) 

ANK 8/83 

000074 

000075 

00202 

00203 

70* 

71* 



DUDS(1) = F( 1 ,3)*SHFAC*(CAPC( 1) + EPSA( 1 ) ) 
DO 182 I=2,NETA 

B 1 1 A 162 

000105 

000123 

00206 

00207 

72* 

73* 


182 

DUDS(I) = F(I ,3)*SHFAC*(CAPC(I) + EPSA(I)) 
Y(I)=Y(I-1)+C89*CRH0(I-1) 

B 1 1 A 163 

000123 

000130 

00211 

00212 

74* 

75* 



SHE AD = bUDS(i ') 

IF (IWALL .LT. 3) EMIS = 0.0 

ANK 8/83 
ANK 4/83 

000135 

000140 

00214 

00215 

76* 

77* 



QDIFU = -CAPC( i)/ALPH*CPBAR( 1 )/PR( 1 ) *TPWALL/C3M( IS j 
CPH(IS) = CPBAR(NETA) 

ANK 8/83 
ANK 5/83 

000145 

000155 

00216 
002 17 

78* 

79* 



OWG( IS) = ODIFU 
DER ( 1 1 )=ALPH 

EV 10/73 

000160 

000161 

00220 

00221 

80* 

81* 



DER( 12) = ROKAP( IS)/RAD5 
DER ( 13) = PE( IS)/UCP 


000163 

000166 

00222 

00223 

82* 

83* 



DER( 14)=UE(IS)/UCL 

DX = UE ( IS )**2*RH0E( IS )/GC 

EV 10/73 
ANK 4/83 

000171 

000174 

00224 

00225 

84* 

85* 



ACH = DER (12) *RAD6 
DER( 15) = BETAP(IS) 

ANK 7/83 

000201 

000204 

00226 

00227 

86* 

87* 



DER( 16) = BETAV(IS) 
DER( 17) = WALLQ/UCR 


000206 

000210 

00230 

88* 



DER( 18) = DER( 3 )/UCR 


000213 

.J — 

. . J ' 
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00231 

89* 

DER(Y9) = STEF*TT( 1 )**4*EMIS/UCR 

ANK 5/83 

000216 

00232 

90* 

DER(20) = QDIFU/UCR 


000224 

00233 

91* 

HEAD = ACH*DER( 18) 

ANK 8/83 

000226 


00234 

92* 


IF ( I WALL .LE. 2) GO TO 2104 

ANK 4/83 

000230 

00236 

93* 


HEAD = 0.0 

ANK 8/83 

000234 

00237 

94* 


IF ( RADS (IS) -LT. -1.0E-4) HEAD * - RADSUsj/UCR 

ANK 8/83 

000235 

00241 

95* 

2104 

IF (IS .NE. 1) GO TO 2103 


000246 

00243 

96* 


ARET = 0.0 

ANK 8/83 

000250 

00244 

97* 


IF ( ITDK .GT. 0) COSALF ( 1 ) = 1.0 

ANK 4/83 

000251 

00246 

98* 


GO TO 2106 

EV 10/73 

000256 

00247 

99* 

2103 

ARET = (S(IS) - S( IS- 1 ) )/UCL 

ANK 8/83 

000260 

00250 

100* 


IF (1ST .EQ. 6) GO TO 2105 


000264 

00252 

101* 


ARET = 0.0 

ANK 8/83 

000266 

00253 

102* 


isf = 6 


000267 

00254 

103* 

2105 

IF (ITDK .GT. 0) COSALF (IS) = COS ( ATAN2 ( ( ROKAP( IS ) - ROKAP( IS- 1 ) )ANK 4/83 

000271 

00254 

104* 


1 , UCL* (XST ( IS ) - XST(IS-I)))) 


00027.1 »♦ 

00256 

105* 

2106 

IF ( IRITE .EQ. 0) GO TO 30 


000317 

00260 

106* 


WRITE (6,1) (HEAT ( d , I UN IT ) , J = 1 , 2 ) , DIST( I UN IT ) , PRESS( I UN IT ) , 

ANK 8/83 

000320 

00260 

107* 


1 VEL( I UNIT ),(DER(J), 0 = 11,20) 


000320 

00272 

108* 

1 

FORMAT ( /6X , 5HALPHA , 7X , 6HRADIUS , 6X , 8HPRESSURE , 4X , 9HEDGE VEL . , 6X , 


NEWO0O346 

00272 

109* 


1 5HBETAP, 8X, 5HBETAV, 17X, 'HEAT FLUXES ' 2A6/ 18X, A6, 7X, A6, 6X , A6, 3 IX, 


-01000346 

00272 

1 10* 


2 'DI FFUSIONAL ' .4X.8HT0T ENTH , 7X , 5HRERAD , 8X , 5HQC0ND/ IX , 1P10E13.6) 


000346 

00273 

111* 


POUT = DER( 13 ) *PATM 

ANK 5/83 

000346 

00274 

1 12* 


IF ( IUNIT .EQ. 1) POUT = DER( 13) 

PLOT 

000351 

00274 

1 13* 

C 

STORE ON DRUM FOR PLOTTING: VELOCITY , ENTHALPY . PRESSURE , HEAT FLUX 

PLOT 

000351 

00276 

00305 

1 14* 
115* 

30 

IF ( I PASS .EQ. 0) WRITE (3) DER( 14 ) , DER( 18 ) , POUT . DER ( 20) 
ACCP = RHO(NETA)/VMU(NETA)*UE( I S )/ALPH*F (NETA , 2 ) 

ANK 7/83 

000356 

000371 

00306 

1 16* 


CH = WALLQ/ ( G ( NETA. 1 ) - G( 1,1)) 


000400 

00307 

117* 


CF = CAPC( 1 )/ALPH*VMUE ( IS )/C89»F ( 1,3) 


000405 

00310 

1 18* 


IF (IRITE .EQ. O) GO TO 400 


000413 

00312 

119* 


WRITE (6.2) ( (MASS( J, IUNIT) , J=1 ,2) ,K=1 .2) . ( ATA(K) , ATB(K) ,K=1 ,NSP) 


000423 

00330 

120* 

2 

FORMAT ( //5X , 4HWALL 12X,12HMASS FLUXES , 2A6 . 9X , 32HELEMENTAL MASS DI 

000450 

00330 

121* 


1 FFUSIVE FLUXES , 2A6, IX , 3HF0R/4X , 5HSHEAR , 3X , 17HMECHANICAL PYROL, 


000450 

00330 

122* 


2 6X , 4HCHAR , 3X , 'TOTAL GAS ' , 8( IX . 2A4 , IX) ) 


000450 

00331 

123* 


WRITE (6,23) SHEAR( IUNIT ) 

ANK 8/83 

000450 

00334 

124* 

23 

FORMAT (4X , A6 . 3X , 7HREM0VAL , 5X , 3HGAS ) 


000457 

00335 

125* 

400 

DO 203 I = 1 , NETA 


000457 

00340 

126* 


SP( I , 1 ,NSP) =1.0 


000477 

00341 

127* 


SP (1,2, NSP ) = 0.0 


000500 

00342 

128* 

203 

SP( I , 3 . NSP ) = 0.0 


000501 

00344 

129* 


IF (NSPM1 .LE. 0) GO TO 2021 


000503 

00346 

130* 


DO 202 K = 1 , NSPM1 


000506 

00351 

131* 


DO 202 1=1, NETA 

B 1 1 A 191 

000516 

00354 

132* 


SP( I , 1 , NSP ) = SP(I.I.NSP) - SP(I,1.K) 


000516 

00355 

133* 


SP ( I , 2 , K ) = SP(I ,2,K)/ALPH 


000520 

00356 

134* 


SP ( i , 2 , NSP ) = SP( I , 2 , NSP ) - SP(i.2.k) 


000523 

00357 

135* 


SP( I , 3 , K ) = SP(I ,3,K)/ALPH**2 


000525 

00360 

136* 

202 

SP( I , 3 , NSP ) = SP ( I ,3, NSP) - SP(i,3,k) 


000530 

00363 

137* 

2021 

XSP(5,NSP) = F (NETA , 1 ) - F(1,1) 


000541 

00364 

138* 


IF (NSPM1 .GT. O) GO TO 2135 


000546 

00366 

139* 


VJKW( 1 ) =0.0 


000551 

00367 

140* 


CM( 1 )=0. 


000552 

00370 

141* 


THELEM( 1 )=0. 


000553 

00371 

142* 


GO TO 2137 


000554 

00372 

143* 

2135 

DO 2136 1=1, NSPM 1 

B 1 1 A 

000556 

00375 

144* 

2136 

XSP( 5 , NSP j =XSP ( 5 , NSP ) -XSP ( 5 , 1 ) 

B 1 1 A 199 

000574 

00377 

145* 


DO 2131 1=1 , NSP 

B 1 1 A 200 

000604 

00402 

146* 


VJKW(I )=0. 

B 1 1 A 201 

000604 

00403 

147* 


DO 2132 K- 1 , NSP 

B 1 1 A 202 

000607 

00406 

148* 

2132 

VJKW(I) = VJKW(I) - WALLd(K)/WTM(K)*VNU(I ,K) 

ANK 4/83 

000607 



00410 

1 49 * 

2131 

VJKW( I )=VUKW( I ) *WAT ( I ) 

B 1 1 A 204 

000614 

00412 

1 50* 

2137 

UCMF = UCE/UCR 


000625 

00413 

151* 


IF ( IRITE .EQ. 0) GO TO 35 


000627 

00415 

152* 


DER(ii) = SHEAD/UCS 

ANK 8/83 

00063 1 

00416 

153* 


DER( 12) = ADR*UCMF 


000634 

00417 

154* 


DER( 13)=DER( 1 )*UCMF 

EV 10/73 

000636 

00420 

155* 


DER( 14)=DER(2)*UCMF 

EV 10/73 

00064 1 

00421 

156* 


DER( 15) = RHOVW( IS) *UCMF/C3M( IS) 

ANK 8/83 

000644 

00422 

157* 


DO 2237 1=1 ,NSP 

EV 10/73 

000661 

00425 

158* 

CO 

CM 

CN 

DER(I+15)=VJKW( I ) *UCMF 

EV 10/73 

000661 

00427 

159* 


WRITE (6,3) (DER(J), J = 11.NSJ) 


000664 

00435 

160* 

3 

FORMAT ( 2X , 1P13E10.3) 


000676 

00435 

161* 

C 

STORE ON DRUM FOR PLOTTING: WALL SHEAR, TOTAL GAS FLUX 

PLOT 

000676 

00436 

162* 


IF (IPASS .EQ. 0) WRITE (3) DER( 1 1 ) ,DER( 15) 

ANK 7/83 

000676 

00443 

163* 

35 

ADR = C89/F ( NET A , 2 ) *RHOE ( I S )/RHO(NETA ) 


000707 

00444 

164* 


DUM3 = ADR* ( F ( NETA , 1) - F( 1 , 1 )) 


000715 

00445 

165* 


DELST=Y (NETA ) -DUM3 

B 1 1 A 208 

000721 

00446 

166* 


THENGY = (DUM3*G(NETA, 1 ) - ADR*XG( 5 ) )/ ( G( NETA , 1 ) - G( 1 , 1 ) ) 


000723 

00447 

167* 


THMOM = DUM3 - ADR*XM( 5 )/F (NETA , 2 ) 


000734 

00450 

168* 


DELBD = Y (NETA) - ADR*F ( NETA , 1 ) 


000741 

00451 

169* 


BLOW = RHOVW( IS)/C3M( IS)/CH 

ANK 8/83 

000745 

00452 

170* 


IF (NSPM1 . L E . 0) GO TO 2074 


000751 

00454 

171* 


DO 2071 I = 1.NSP 


000776 

00457 

172* 


THELEMC I ) =0 . 

B 1 1 A 221 

000776 

00460 

173* 


CM( I ) =0. 


000776 

00461 

174* 


DUZ=0- 


000777 

00462 

175* 


DO 2072 K= 1 , NSP 

B 1 1 A 223 

001007 

00465 

176* 


DUZ = DUZ + ( DUM3*SP ( NET A , 1 , K ) -C89/ALPH*XSP( 5 , K ) )/WTM(K ) * VNU( I , K ) 

ANK 4/83 

001007 

00466 

177* 

2072 

THELEM(I) = THELEM(I) + (SP(NETA , 1 , K ) - SP( 1 . 1 . K ) )/WTM(K ) *VNU( I , K ) ANK 4/83 

001017 

00470 

178* 


IF ( ABS(THELEM( I ) ) .LE. 0.0) GO TO 2071 


001026 

00472 

179* 


CM( I ) = VUKW( I )/( THELEM( I ) *WAT ( I ) ) 


001031 

00473 

180* 


THELEM( I ) =DUZ/THELEM( I ) 


001036 

00474 

181* 

2071 

CONTINUE 


001047 

00476 

182* 

2074 

IF (KQ9 .EQ. 0) GO TO 2078 

ANK 4/83 

001047 

00476 

183* 

C 

TRANSVERSE CURVATURE CALLED FOR BY IBODY INPUT AS 8 


001047 

00500 

184* 


COSOR = TVCC ( I S ) / VMUE ( I S ) *6 . 50/C3M (IS) 

ANK 4/83 

001050 

00501 

185* 


DO 2076 1=1, NETA 


001062 

00504 

186* 


Y ( I ) =TVCF ( Y ( I ) ) 


001070 

00505 

187* 

2076 

DUDS (I )=DUDS(I )*( 1 .+COSOR*Y(I )) 


001105 

00507 

188* 


DELST=TVCF(DELST ) 


001 112 

00510 

189* 


DELBD=TVCF( DELBD ) 


001130 

00511 

190* 


THMOM=TVCF( THMOM) 


001 146 

00512 

191* 


THENGY=TVCF ( THENGY ) 


OOI 164 

00513 

192* 


DO 2077 K = 1 , NSP 


001205 

00516 

193* 

2077 

THELEM(K)=TVCF (THELEM(K) ) 


001205 

00520 

194* 

2078 

IF (IRITE .EQ. 0) GO TO 50 


001224 

00520 

195* 

C 

CALCULATE THE BOUNDARY LAYER THRUST LOSS 


001224 

00522 

196* 


DF = 2 . O*C0SALF( IS)/(UCL*UCS)*( ACH*DX*THMOM - ACH*PE ( IS) *DELBD* 

ANK 5/83 

001225 

00522 

197* 


1 PATM*SIPSF + RAD6*SQRT(XI(IS)*2.0)*F( 1 , 1 ) *U£( IS )/GC/UCL ) 

ANK 5/83 

001225 

00523 

198* 


WRITE (6,18) ( ATA(K) , ATB(K) , K = 1.NEL) 

ANK 5/83 

001265 

00532 

199* 

18 

FORMAT ( // 3X , 20HM0M TRANS HEAT TRANS , 5X , 1 8HBL0WING PARAMETERS , 7X , 


001301 

00532 

200* 


1 36HELEMENTAL MASS TRANSFER COEFFICI ENTS/4X , 2(6HC0EFF . ,4X) , 25H(N0R 

001301 

00532 

201* 


2M. BY RHOE*UE*ST ) FOR, 14X.8HCM, F0R/5X , 4HCF/2 , 5X , 38HST NO. PYRO 

001301 

00532 

202* 

3L GAS CHAR TOTAL GAS , 8 ( IX, 2A4 , IX ) ) 


001301 

00533 

203* 


DER(IO) = RHOE ( IS)*UE(IS) 


001301 

00534 

204* 


DER( 1 1 )=CF/DER( 10) 

EV 10/73 

001304 

00535 

205* 


DER( 12 ) =CH/DER( 10) 

EV 10/73 

001307 

00536 

206* 


IF( IPART . EQ. 1 )G0 TO 40 


NEWOOI 312 

00540 

207* 


IF ( ICF . GT .0. AND . ICF . LT . 3 )G0 TO 40 


NEW0013 1 5 

00542 

208* 


GO TO 41 


NEW001332 
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00543 

209* 

40 

DUMM1 =DER( 1 1 )*2. 


NEW001 334 


00544 

210* 


DUMM2=DER( 12) 


NEWOOI 336 


00545 

211* 


DUMM3=S( IS) 


NEWOOI 340 


00546 

212* 


AM=F (NETA , 2 )/ALPH*UE ( IS)/SQRT ( GMR ( NETA )/VMW(NETA ) *TT( NETA ) *49732 . ) 


NEWOOI 343 


00547 

213* 


REFF = ( 1 . + ( GMR (NETA ) - 1 . )/2 . *PR (NETA ) ** . 333* AM* *2)/ 


NEWOOI 361 


00547 

214* 


$ ( 1 . + ( GMR ( NETA)- 1 . )/2. * AM* *2 ) 


NEW00136 1 


00550 

215* 


DO 42 1=1 .NETA 


NEWOOI 4 1 5 


00553 

216* 


DM1 ( I )=CPBAR( I )*UCT/UCE 


NEWOOI 4 15 


00554 

217* 


DM2 ( I ) =TT ( I )/UCT 


NEW001420 


00555 

218* 

42 

CONTINUE 


NEW001424 


00557 

219* 


DZERO=DM 1 ( 1 ) -(DM1 (2)-DM1 ( 1 ) )/ ( DM2 ( 2 ) -DM2 ( 1 ) )*DM2( 1 ) 


NEWOOI 424 


00560 

220* 


AINT=0.5*(DZER0+DM1( 1))*DM2( 1 ) 


NEWOOI 434 


00561 

221* 


DUMM6=AINT 


NEWOOI 440 


00562 

222* 


DO 43 I =2. NETA 


NEWOOI 444 


00565 

223* 


A INT=AINT+0. 5* (DM 1(1-1 )+DM 1 ( I ) ) * ( DM2 ( I ) -DM2( I - 1 ) ) 


NEWOO 1 444 


00566 

224* 

43 

CONTINUE 


NEWOOI 454 


00570 

225* 


DUMM4=A INT 


NEWOO 14 54 


00571 

226* 


DUMM5= ( DUMM4+ ( G( NETA , 1 ) -HB ( NETA )/UCE ) )*REFF 


NEW001455 


00572 

227* 


DUMM7=RH0( NETA ) 


NEW001463 


00573 

228* 


DUMM8 = RH0( 1 ) 


NEWOO 1465 


00574 

229* 


DUMM9=VMU( 1 ) 


NEWOO 1467 


00575 

230* 


DUMM 10=VMUE ( IS ) 


NEWOOI 47 1 


00576 

231* 


DUMM 1 1 =PR ( NET A ) 


NEWOO 1473 


00577 

232* 


DUMM 12=UE(IS) 


NEWOO 1 475 


00600 

233* 


IF( IPART.EQ. 1 . AND. (ICF.EQ.O.OR. ICF.EQ.3) )G0 TO 41 


NEWOO 1477 


00602 

234* 


AFACT =0 . 52 


NEWOO 1520 


00603 

235* 


CALL ROUGH( AFACT) 


NEWOOI 522 


00604 

236* 


CF=DUMM18/2. 


NEWOOI 525 


00605 

237* 


ST =DUMM 16 


NEWOOI 530 


00606 

238* 


WALLQ=ST*(G(NETA, 1 )-G( 1 , 1 ) ) *RHOE( IS ) *UE( IS ) 


NEWOOI 532 


00607 

239* 

41 

CONTINUE 


NEWOOI 543 


00610*“' 

240* 


I F ( IPART . EQ. 1 )G0 TO 45 


NEWOOI 543 


00612 

241* 


GO TO 44 


NEWOOI 545 


00613 

242* 

45 

IF(ICF.EQ.O. OR . ICF . EO . 3 )G0 TO 46 


NEWOO 1 547 


00615 

243* 


DUMM 1 =DUMM 1 8 


NEWOO 1560 


00616 

244* 


DUMM2=DUMM16 


NEWOOI 562 


00617 

245* 

46 

CONTINUE 


NEWOO 1565 


00620 

246* 


DUMM5=G(NETA, 1 ) 


NEWOO 1565 


00621 

247* 


DUMM6=G( 1.1) 


NEWOOI 567 


00622 

248* 


DUMM 1 9 =CPB AR ( NET A ) *UCT/UCE 


NEWOOI 57 1 


00623 

249* 


DUMM20=REFF*TE ( 1 )/UCT 


NEWOO 1575 


00624 

250* 


DUMM2 1=TT ( 1 )/UCT 


NEWOO 1601 


00625 

251* 


DUMM22=DUMM 1 9* VMU ( NET A ) /UCV/DUMM 1 1 


NEWOO 1604 


00626"“ 

252* 


DUMM2 3 = ( DUMM7 * DUMM 12* 2 . * ROK A P ( IS ) / RAD5 ) / DUMM 1 6 


NEWOO 16 IO 


00627 

253* 


PARTM=(4./3. )*(22./7. )*((RP/12. )**3)*RH0PA 


NEW001620 


00630 

254* 


DUMM24 =PARTM*bUMM 1 2/ ( ( 22 . / 7 . ) *6 . *RP/ 12 . *DUMMi6) 


NEWOO 1630 


00631 

255* 


CALL PARTCL 


NEW001637 


00632 

256* 


CF =DUMM 1 8/ 2 . 


NEW00164 1 


00633 

257* 


ST =DUMM 16 


NEW001644 


00634 

258* 


WALLQ=ST * ( G(NETA , 1 ) -G( 1,1) )*RHOE ( IS ) *UE (IS) 


NEW001646 


00635 

259* 

44 

CONTINUE 


NEW001657 


00636 

260* 


DER( 13) = DER( 1 )/CH 


001657 


00637 

261* 


DER( 14) = DER(2)/CH 


001661 


00640 

262* 


DER( 15) =BLOW EV 

i0/73 

001664 


00641 

263* 


DO 2139 1=1 , NSP EV 

10/73 

001707 


00644 

264* 

2139 

DER( 1+ 15 ) =CM( I )/DER( 10) EV 

io/73 

001707 


00644 

265* 

C 

STORE ON DRUM FOR PLOTTING: MOMENTUM TRANSFER COEFFICIENT, HEAT 


001707 


00644 

266* 

C 

TRANSFER COEFFICIENT. TOTAL GAS BLOWING PARAMETER 


001707 


00646 

267* 


IF (IPASS .EO. O) WRITE (3) DER( 1 1 ) ,DER( 12) .BLOW PLOT 

001714 


00654 

268* 


IF( IPASS. EO.O) WRITE ( 3 )CF. CH, WALLQ 


NEW001725 




00662 

269* 


WRITE (6,3) (DER(d) , J = 11.NSU) 



001736 

00670 

270* 


WRITE (6.4) OIST( IUNIT ) , REY ( IUNIT ) , ( ATA(K) , ATB(K) , K = 1.NEL) 

* 

z 

< 

5/83 

001750 

00701 

271* 

4 

FORMAT ( //3X , 68HM0MENTUM DISPLACE. EFFECTIVE ENTHALPY REYNOLDS M 


001767 

00701 

272* 


IASS THICKNESS IN ,A6,4H F0R/2X „ 48HTHICKNESS THICKNESS BODY TH 


001767 

00701 

273* 


2ICKNESS NUMBER/4X , 5HTHETA , 4X . 33HDELSTAR DISPLACE. LAMBDA PE 


001767 

00701 

274* 


3R,A6,8( 1X.2A4. IX)) 



001767 

00702 

275* 


WRITE (6.24) (DIST ( IUNIT ) , K = 1,4) 



001767 

00710 

276* 

24 

FORMAT ( 4 (4X , A6 ) ) 



002000 

00711 

277* 


THMOM = THMOM/UCL 



002000 

00712 

278* 


DELTBD(IS) = DELBD/UCL 



002003 

00713 

279* 


DER( 13) = DELST/UCL 



002007 

00714 

280* 


DER( 14) = THENGY/UCL 



002012 

00715 

281* 


DER( 15) = ACCP*UCL 



002015 

00716 

282* 


DO 2140 1=1 , NSP 

EV 

10/73 

002023 

00721 

283* 

2140 

DER( 1+15) = THELEM( I )/UCL 



002023 

00723 

284* 


WRITE (6,3) THMOM, DER( 13 ) ,DELTBD( IS ) , (DER(K) , K = 14.NSJ) 



002026 

00723 

285* 

C 

STORE ON DRUM FOR PLOTTING: MOMENTUM THICKNESS, EFFECTIVE DISPLACEMENT 

002026 

00734 

286* 


IF (IPASS .EQ. O) WRITE (3) THMOM, DELTBD( IS) 

PLOT 

002043 

00741 

287* 


WRITE (6,21 ) HWALL( IUNIT) .THRUST (IUNIT ) .AREA ( IUNIT) , (FLOW( IUNIT) , 

ANK 

8/83 

002055 

00741 

288* 


1 K = 1,2) 



002055 

00752 

289* 

21 

FORMAT ( //5X , 'TOTAL HEAT' , 7X , 6HTHRUST , 9X . 5HT0TAL , 7X , 'ACCELERATION' 



002074 

00752 

290* 


1 , 5X , 8HINVISCID , 9X , 5HT0TAL ,7X, 7 AREA RATIO ' /6X , 7HT0 WALL, 10X.4HL0SS. 



002074 

00752 

291* 


A 8X.9HWALL AREA, 



002074 

00752 

292* 


25X, 'PARAMETER-K - ' ,5X,2(9HMASS FLOW , 7X )/7X , A6 , 2 ( 9X , A6 ) , 1 5X , 2 ( 9X , A6 ) ) 



002074 

00753 

293* 

50 

WALLA = WALLA + (ROKAP(IS-I) + ROKAP( IS) )*RAD6*ARET/RAD5 

ANK 

8/83 

002074 

00754 

294* 


SUMOG = SUMQG + (ENTHAL + HEAD)*ARET 

ANK 

8/83 

002103 

00755 

295* 


ENTHAL = HEAD 

ANK 

8/83 

002110 

00755 

296* 

C 

ENTHAL is P1*R0KAP(I)*0WALL, SUMOG IS THE TOTAL HEAT TO THE WALL, 



002110 

00755 

297* 

C 

AND WALLA IS THE ACCUMULATED WALL AREA 



0021 lO 

00756 

298* 


IF ( I RITE . EQ. 0) GO TO 60 



002112 

00760 

299* 


ACCP = BETAV( IS) *VMUE ( IS ) **2*R0KAP( I S ) * *2/2 . 0/XI ( IS ) 



0021 14 

00761 

. 300* 


ACCPK=ACCP*RHOE (IS) *VMU( 1 )/ ( VMUE ( I S ) *RHO ( 1)) 



NEW002 125 

00762 

301* 


THENGY = 2 . 0*SQRT(XI ( IS) *2 . 0)*RAD6/UCM*F (NET A , 1 ) 



002133 

00763 

302* 


THMOM = 2 .6*S0RT (XI ( IS )*2.6) *RAD6/UCM* ( F ( NET A , 1 ) - F( 1 , 1 ) ) 



002 1 50 

00764 

303* 


ARET = ( ROKAP( I S )/RAD5/RTM) **2 

ANK 

8/83 

002154 

00765 

304* 


WRITE (6,22) SUMOG, DF, WALLA, ACCP, THENGY, THMOM. ARET 

ANK 

8/83 

002161 

00776 

305* 

22 

FORMAT ( IX, 1P7E15.6) 



002175 

00777 

306* 


I F ( ICF . EQ . 0 )G0 TO 1111 



NEW002 175 

01001 

307* 


WRITE (6 , 1009) 



NEW002 177 

01003 

308* 

1009 

FORMAT ( / , IX , 56 ( '*'),' REMTECHINC. 11-84 ' ,56( '*' )) 



NEW002204 

01004 

309* 

1010 

FORMAT(/, IX, 132( '*' ) ) 



NEW002204 

01005 

310* 


WRITE(6, lOOO) ICF , RK 



NEW002204 

0101 1 

311* 

1000 

F0RMAT(/,2X, 'ROUGHNESS MODULE USED - OPTION ',12./, 



NEW0022 1 3 

OIOI 1 

312* 


$ 6X , 'EQUIVALENT SAND ROUGHNESS HEIGHT, RK = # , E 10. 3 , ' ( FEET ) ' ) 



NEW0022 1 3 

01012 

313* 


IF( ICF . EQ. 3 )G0 TO 1112 



NEW0022 1 3 

01014 

314* 


REACT =DUMM16/DUMM2 



NEW0022 1 6 

01015 

315* 


I F (DUMM17 .E0.0.0)WRITE(6, 1001 )RFACT 



NEW00222 1 

01021 

316* 


IF(DUMM1 7. GT. 0.0. AND.DUMM17.LT. 1 .0)WRITE(6, 1002)RFACT 



NEW00223 1 

01025 

317* 


I F( DUMM17 . EQ . 1 ,0)WRITE(6, 1003)RFACT 



NEW002254 

01031 

318* 

lOOl 

FORMAT ( 6X , ' SMOOTH ' t 14X , 20X , 9 ROUGHNESS FACTOR = ',F7.3) 



NEW002265 

01032 

319* 

1002 

F0RMAT(6X, 'TRANSITIONALLY ROUGH ' , 20X , ' ROUGHNESS FACTOR = ',F7.3) 



NEW002265 

01033 

320* 

1003 

FORMAT (6X, 'ROUGH' , 15X.20X, 'ROUGHNESS FACTOR = '.F7.3) 



NEW002265 

01034 

321* 


WRITE (6 , 1008 )CF , ST , WALLQ 



NEW002265 

01041 

322* 

1008 

FORMAT( IX, ' CF/2=' , 1PE10.3.5X, ' ST NO. = ' , 1PE 10. 3 , 5X . 



NEW002275 

01041 

323* 


$ 'HEAT FLUX= ' , 1 PE 10. 3) 



NEW002275 

01042 

324* 


GO TO 1111 



NEW002275 

01043 

325* 

1 112 

CONTINUE 



NEW002277 

01044 

326* 


I F ( ABS ( DUMM 17). LE. 0.001 )WRITE(6, 1004) 



NEW002277 

01047 

327* 


I F ( ABS(DUMM17- 1 . ) .LE. 0.001 )WRITE(6, 1005) 



NEW0O2307 

01052 

328* 


I F ( ABS (DUMM 17-2. ) . LE . 6. OOi ) WRITE ( 6 , 1006) 



NEW002322 
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01055 

329* 

1004 

FORMAT (6X, ' SMOOTH ' ) 

NEW002335 

01056 

330* 

1005 

FORMAT (6X. 'ROUGH' ) 

NEW002335 

01057 

331* 

1006 

FORMAT (6X , ' RKS BEYOND UPPER LIMIT - EQUATION BECOMES INVALID - ' . 

NEW002335 


01057 

332* 


$ 'THEREFORE RKS = 0.0 WAS USED.') 


NEW002335 


01060 

333* 


WRITE ( 6 , 1010) 


NEW002335 


01062 

334* 

1111 

CONTINUE 


NEW002343 


01063 

335* 


IF( IPART.EQ. 1 )G0 TO 1301 


NEW002343 


01065 

336* 


GO TO 1302 


NEW002345 


01066 

337* 

1301 

WRITE ( 6 , 1009) 


NEW002347 


01070 

338* 


IF( ILT. EQ. 1 )WRITE(6, 1 303 )RP , AK . PF 


NEW002353 


01076 

339* 

1303 

F0RMAT(/,2X, 'PARTICLE MODULE USED './. 6X ,' LAMINAR FL0W',5X, 


NEW002366 


01076 

340* 


$ 'PARTICLE SIZE RP= ' . E 10. 3 , ' IN RADIUS' ,/. IX , 'PARTICLE LOADING ='. 


NEW002366 


01076 

341* 


$ F10. 2, lOX, 'PARTICLE FACTOR =',F10.4) 


NEW002366 


01077 

342* 


I F ( I LT . EQ . 2 ) WRITE ( 6 , 1 305 )RP , WP , PF 


NEW002366 


01105 

343* 

1305 

F0RMAT(/,2X, 'PARTICLE MODULE USED ',/, 6X , 'TURBULENT FL0W',5X, 


NEW002401 


Ol 105 

344* 


$ ' PARTICLE SIZE RP = ' . E 10. 3 , ' IN RADIUS' IX, 'PARTICLE LOADING 


NEW002401 


01 105 

345* 


$ F10. 2, 10X, 'PARTICLE FACTOR =',F10.4) 


NEW002401 


01 106 

346* 


WRITE ( 6 , i008 )CF , ST , WALLQ 


NEW002401 


01 1 13 

347* 


WRITE ( 6 , 1010) 


NEW0024 1 1 


01115 

348* 

1302 

CONTINUE 


NEW0024 1 7 


01 1 16 

349* 


I F ( ILAMIN. EQ.O. OR . I LAM. EQ.0)G0 TO 1211 


NEW0024 1 7 


01120 

350* 


WRITE (6, 1009) 


NEW002426 


01122 

351* 


WRITE ( 6 , 1 200)SPCT 


NEW002433 


01 125 

352* 

1200 

FORMAT (/, 2X , ' R E L AM IN AR I Z ATI ON OCCURED',/, 


NEW00244 1 


01125 

353* 


$ 2X. 'DEGREE OF RELAMINARIZATION = '.E10.3,' PERCENT') 


NEW00244 1 


01 126 

354* 


WRITE ( 6 , 1010) 


NEW00244 1 


01 130 

355* 

121 1 

CONTINUE 


NEW002447 


01 131 

356* 


WR I T E ’( 6 , 1 007 ) RE THMO , ACCP, ACC PK 


NEW002447 


01 136 

357* 

1007 

FORMAT(/, IX, ' RETHMO ACCN PARA ACCN PARA',/, IX, 


NEW002456 


01136 

358* 


$ ' (EDGE) (WALL)',/, 3X, 1P3E10.3) 


NEW002456 


01137 

359* 


IF (IPASS .EQ. 1) GO TO 55 

PLOT 

002456 


01141 

360* 


ACCP = 1 . 0E6*ACCP 


002461 


01 141 

361* 

C 

STORE ON DRUM FOR PLOTTING: TOTAL HEAT TO WALL, WALL AREA, THRUST 

LOSS, 

002461 


01 141 

362* 

C 

ACCELERATION PARAMETER, INVISCID MASS FLOW, AND TOTAL MASS FLOW 


002461 


01142 

363* 


WRITE (3) SUMQG, WALLA, DF, ACCP, THENGY , THMOM 

PLOT 

002464 


01152 

364* 

55 

WRITE (6.6) SHEAR( IUNIT ) , ( ENERGY ( IUNIT) . K = 1.2) 

ANK 8/83 

002477 


01 161 

365* 

6 

FORMAT ( 1H1 ,5X, 'NODAL INFORMAT ION '// IX , 2HN0 , 7X , 3HETA , 10X.4HU/UE, 


002552 


01 161 

366* 


1 8X , 5HGAMMA , 8X , 6HSHEAR , A6 , 3X STREAM FUNCTION F ' , 8X t ' FPP ' ,1 2X , 


002552 


01161 

367* 


2 'GP 'A6.8X, 'GPP ' , A6) 


002552 


01 162 

368* 


DO 183 1=1 , NETA 

B 1 1 A 240 

002552 


01 165 

369* 


DER( 1 ) = F ( 1 , 2 ) / ALPH 


002552 


01 166 

370* 


DER( 2 ) = DUDS( 1 )/UCS 


002555 


01 167 

371* 


DER(3) = F ( 1 , 3 )/ ALPH* *2 


002560 


Ol 170 

372* 


DER( 4 ) = G( 1 ,2 )/( ALPH*UCE ) 


002563 


01 171 

373* 


DER( 5 ) = G(I,3)/(ALPH**2*UCE) 


002566 


01171 

374* 

C 

STORE ON DRUM FOR PLOTTING: ETA VALUES, VELOCITY RATIO, GAMMA, AND 

1 SHEAR. 

002566 


01172 

375* 


IF (IPASS -NE. 1) WRITE (4) ETA( I ) , DER( 1 ) ,GMR( I ) . DER( 2 ) 

PLOT 

002571 


01201 

376* 

183 

WRITE (6. 12) I , ETA ( I ) , DER ( 1 ) , GMR( I ), DER(2) , F(i , 1 ) . (DER (j) , J=3 , 5 ) 


002603 


01213 

377* 

12 

FORMAT (1X.I2.3F13.7, 1P5E18.7) 


002623 


01214 

378* 


WRITE (6,7) DIST( IUNIT ) , DENS( IUNIT ) , ( ENERGY ( IUNIT ) , K = 1.2). 


002623 


01214 

379* 


1 PRES( IUNIT), NUM.NUM 


002623 


01227 

380* 

7 

FORMAT (//IX, 2HN0,5X, 'DISTANCE FROM ' , 8X , ' DENS I TY ' , 7X , ' ST AT I C ENTHA 

002653 


01227 

381* 


1 LPY ' , 4X , 'TOTAL ENTHALPY' ,6X, 'PITOT TUBE' ,7X, 'MACH' , 7X , 'MOLECULAR' , 


002653 


01227 

382* 


2 5X, 'PRANDTL'/ 9X,'WALL ',A6,8X.'RH0 ',A6,8X,'H ',A6,9X,'G. 


002653 


01227 

383* 


3 A6.5X, 'PRESSURE ', A6 , 4X , A6 , 7X , 'WEIGHT ', 7X ,A6) 


002653 


01230 

384* 


DO 184 1=1 , NETA 

B 1 1 A 259 

002653 


01233 

385* 


GMR( I )=ABS(GMR( I ) ) 


002657 


01234 

01235 

386* 

387* 


ACH = F ( I . 2)/ALPH*UE ( IS)/SQRT( GMR( I )/VMW( I ) *TT ( I j *GC*RVAR ) 
DER( 2 ) =RHO( I )/UCD 

ANK 5/83 
EV 10/73 

002661 

002676 


01236 

388* 


DX = GMR(i) - 1.6 


002701 




01237 

389 * 



ADR = GMR(I) +1.0 



002704 


01240 

390* 



IF (ACH .GE. 1.0) PITOT = POUT *( ACH**2*ADR/2 .0) **(GMR( I )/DX)/ 



002707 


01240 

391* 



1 ( (2.0*GMR(I)*ACH**2 - DX)/ADR)**( 1 .O/DX) 


002707 


01242 

392* 



DX = (UE( IS )/UCL*F ( I , 2 )/ALPH)**2 



002752 


01243 

393* 



IF (IUNIT .EQ. 2) DX = DX/ (GC+SIPSF ) 

ANK 

4/83 

002755 


01245 

394* 



IF (ACH .LT. 1.0) PITOT = POUT + (1.0 + ACH**2/4.0)*DER(2)*DX/2.0 


002762 


01247 

395* 



Y ( I ) = Y ( I )/UCL 



002777 


01250 

396* 



DER(i) = HB( I j/liCE 

ANK 

5/83 

003002 


01251 

397* 



DER( 6 ) = G(I, O/UCE 



003005 


01252 

398* 



IF (IPASS .EQ. 1) GO TO 184 

ANK 

7/83 

003010 


01252 

399* 

c 


CONVERT DISTANCE FROM WALL TO CENTIMETERS OR INCHES 



003010 


01254 

400* 



DW = 100. 0* Y ( I ) 

ANK 

7/83 

003012 


01255 

401* 



IF (IUNIT .EQ. 2) DW = 12.0*Y(I) 

ANK 

7/83 

003014 


01255 

402* 

c 


STORE ON DRUM FOR PLOTTING: DISTANCE FROM WALL, DENSITY, MACH NUMBER, 


003014 


01255 

403* 

c 


PITOT TUBE PRESSURE, STATIC ENTHALPY, AND TOTAL ENTHALPY. 



003014 


01257 

404* 



WRITE (4) DW, DER ( 2 ) , ACH , PITOT , DER ( 1 ) ,DER(6) 

ANK 

7/83 

003022 


01267 

405* 


184 

WRITE (6,20) I , Y(I ) ,DER(2) ,DER( 1 ) , DER ( 6 ) . PITOT , ACH, VMW( I ) , PR( I ) 



003035 


01303 

406* 


20 

FORMAT ( IX, 12, 1 P5E 18 . 7 , OPF 1 3 . 8 , F 1 3 . 6 , F 1 3 . 8 ) 



003054 


01304 

407* 



WRITE (6.8) DIST(IUNIT) , (VIS(J, IUNIT), J = 1 , 2 ) . ( TCON(U , IUNIT ) , 



003054 


01304 

408* 



1 J = 1 ,2) , (CQ(U, IUNIT) , d = 1 , 2 ) , TEMP( IUNIT ) , NUM , NUM 

ANK 

5/83 

003054 


01326 

409* 


8 

FORMAT (//IX, 2HN0.5X, 'MIXING LENGTH ' , 6X , ' VI SCOS I TY MU ', 5X ,' THERMAL 


003127 


01326 

410* 



1 COND . * ,5X, 'SPECIFIC HEAT ' , 4X, 'KINEMATIC EDDY 2X , ' TEMPERATURE ' , 2X 


003127 


01326 

41 1* 



2, 'SCHMIDT' ,5X, ' TURBULENT '/ 1 IX, A6, 10X , 2A6 , 6X , 2A6 , 6X, 2A6 , 4X , 'VISCOSI 


003127 


01326 

412* 



3TY EPSA ' , 4X , A6 , 5X , A6 , 4X , ' PRANDTL ' . A6 ) 



003127 


01327 

413* 



DO 185 I = 1.NETA 



003127 


01332 

414* 



DER(l) = DL( I )/C89/ALPH/UCL 

ANK 

5/83 

003127 


01333 

415* 



DER( 3 ) =VMU( I )/UCV 

EV 

10/73 

003 1 34 


01334 

416* 



DER ( 4 ) =CPBAR ( I ) *UCT/UCE 

EV 

10/73 

003137 


01335 

417* 



DER(5)=DER(4)*DER( 3 )/PR ( I ) 

EV 

10/73 

003143 


01336 

418* 



DER( 6 ) = TT ( I )/UCT 

ANK 

5/83 

003146 


01337 

419* 



IF (IPASS -EQ. 1) GO TO 185 

ANK 

7/83 

003151 


01341 

420* 



COND * 1 . 0E5*DER ( 5 ) 

ANK 

7/83 

003153 


01342 

421* 



VISC = 1 . 0E5*DER ( 3 ) 

ANK 

7/83 

003156 


01342 

422* 

c 


STORE ON DRUM FOR PLOTTING: VISCOSITY, SPECIFIC HEAT, THERMAL 



003156 


01342 

423* 

c 


CONDUCTIVITY, TEMPERATURE, AND KINEMATIC EDDY VISCOSITY. 



003156 


01343 

424* 



WRITE (4) VISC, DER(4), COND, DER ( 6 ) , EPSA ( I ) 

ANK 

-j 

00 

w 

003161 


01352 

425* 


185 

WRITE (6,5) I ,DER( 1 ) ,DER(3) ,DER(5) ,DER(4) ,EPSA(I ) ,DER(6) ,SC(I ) , 



003173 


01352 

426* 



1 TURPR(I) 



003173 


01366 

427* 


5 

FORMAT ( IX, 12, 1 P5E 18 . 7 . OPF 1 1.3.F12.8.F13.8) 



003212 


01366 

428* 

c 


STORE ON DRUM FOR PLOTTING: EDGE DENSITY , VISCOSITY , SPECIFIC HEAT, 



003212 


01366 

429* 

c 


THERMAL CONDUCTIVITY, AND MACH NUMBER 



003212 


01367 

430* 



IF (IPASS -NE. 1) WRITE (3) DER( 2 ) , DER ( 3 ) , DER(4 ) ,DER( 5 ) , ACH 

PLOT 

003212 


01377 

431* 


60 

IF ( IFLOW .EQ. 1) GO TO 325 

ANK 

4/83 

003227 


01401 

432* 



IF (IRITE .EQ. 0) GO TO 65 



003231 


01403 

433* 



WRITE (6,13) DI ST ( IUNIT ) , ( Y ( I ) , I = 1.NETA) 



003242 


01412 

434* 


13 

FORMAT ( 1H1 , 45X , 22HD I STANCE FROM WALL IN , A6/( 12X , IP 10E 12 . 4/ 1 8X, 



003260 


01412 

435* 



1 9E 12.4)) 



003260 


01413 

436* 



WRITE (6.25) 



003260 


01415 

437* 


25 

FORMAT (// IX , 78HELEMENTAL FRACTIONS AND THEIR FIRST AND SECOND DERI 



003273 


01415 

438* 



1VATIVES WITH RESPECT TO ETA/) 



003273 


01416 

439* 



DO 201 K= 1 , NSP 

B 1 1 A 265 

003273 


01421 

440* 



WRITE (6,14) MOA(K) ,MOB(K) . (SP(I , 1 ,K) , I = 1.NETA) 



003273 


01431 

441* 


14 

FORMAT (2X.2A6, IX, 1 P9E 1 3 . 5/2 IX , 8E 1 3 . 5/( 1 5X , 9E 13 . 5/2 IX , 8E 1 3 . 5 ) ) 



003305 


01432 

442* 



WRITE (6,15) ( SP( I , 2 ,K) , I = 1.NETA) 



003305 


01440 

443* 

201 

WRITE (6.15) ( SP( I , 3 , K ) , I = 1.NETA) 



003316 


01447 

444* 


15 

FORMAT ( 12X, 1 P 10E 1 2 . 4/ 1 8X , 9E 1 2 . 4 ) 



003343 


01450 

445* 


65 

IF (NSPM1 .LE. 0) GO TO 2041 



003343 


01452 

446* 



DO 204 K = 1 , NSPM 1 



003345 


01455 

447* 



DO 204 1=1, NETA 

B 1 1 A 270 

003364 


01460 

448* 



SP( I , 2 , K) = SP( I , 2 , K )*ALPH 



003364 


_] 

] 


J 

J .. J ) ) J J J J . ] 



: j j ■ 

] 1 



7 . ! 

j 

1 1 ] ] 1 1 — T 

7 1 

"1 

i i i 


W 


w 




01461 

449* 

204 

SP ( I ,3 , K ) = SP(I ,3,K)*ALPH**2 


003366 


01464 

450* 

2041 

IF ( IRITE .EQ. O) GO TO 325 


003377 


01466 

451* 


WRITE (6,16) 


003400 


01470 

452* 

16 

FORMAT (/2X14HM0LE FRACTIONS./) 

B 1 1 A 130 

003405 


01471 

453* 


DO 196 J=1 , NSPEC 

B 1 1 A 274 

003405 


01474 

454* 

196 

WRITE (6,14) MO A ( J ) , MOB ( J ) , ( FR( J , I ) , I = 1 .NETA) 


003423 


01505 

455* 


IF (IWALL . EO. 4) WRITE (6,17) MOA( ISU) ,MOB( ISU) 

ANK 4/83 

003443 


01512 

456* 

17 

FORMAT (/4X, 'SURFACE SPECIES IS '.2A6) 


003460 


01513 

457* 

325 

WALLQ = -WALLQ*C3M( IS) 

ANK 8/83 

003460 


01514 

458* 


IF (NON.LT.O) RETURN 


003463 


01516 

459* 


«J * NETA - 1 


003471 


01517 

460* 


M = KAPPA - 1 


003474 


01520 

461* 


K = KAPPA + 1 


003477 


01521 

462* 


NETAL=NETA 


003502 


01522 

463* 


KAPPAL=KAPPA 


003504 


01523 

464* 


IF ( KONRFT . EO . 0) RETURN 


003506 


01525 

465* 


IF (KO 10 -GT. 0 .AND. KTURB .GT. 0) GO TO 4019 

ANK 4/83 

003513 


01527 

466* 


iF (IS - 1 ) 4002,4021,4002 


003527 


01527 

467* 

C 

TRANSITION TO TURBULENCE - CHANGE NODE DATA 


003527 


01532 

468* 

4019 

KTURB = - 1 


003534 


01533 

469* 


Y(I)=Y(I) *UCL 

EV 10/73 

003535 


01534 

470* 


NETA=NETAT 


00354 1 


01535 

471* 


KAPPA=KAPPAT 


003543 


01536 

472* 


DO 4020 1=1, NETA 


003554 


01541 

473* 

4020 

F2FIX( I ) = F2FIXT( I ) 


003554 


01543 

474* 


DO 4018 I = NETAL.J 


003562 


01546 

475* 

4018 

TT( 1+ 1 ) = -1.0 . 

ANK 5/83 

003562 


01550 

476* 

4021 

IF (NTROPY . EO. 0) GO TO 4002 

ANK 4/83 

003565 


01550 

477* 

C 

SPECIAL ENTROPY OPTION NTROPY = 5 


003565 


01552 

478* 


DO 4000 I = 1 , M 


003566 


01555 

479* 

4000 UKAPPA( I )=F2FIX( I )/F2FIX(KAPPA ) 


003603 


01557 

480* 


UKAPPA ( KAPPA ) = 1 . 0 


003606 


01560 

481* 


DO 4001 I = K , J 


003614 


01563 

482* 

4001 

UKAPPA ( i ) = ( F2FIX( I )" -F2FiX([ KAPPA J )/([F2Fix( NETA )-F2FIX( KAPPA)” ) 

ANK 8/83 

003614 


01565 

483* 


UKAPPA ( NET A ) = 1 .0 


003620 


01566 

484* 

4002 

IF (KTURB ,NE. -1) GO TO 4022 


003623 


01570 

485* 


KTURB = 0 


003625 


01571 

486* 


GO TO 327 


003626 


01572 

487* 

4022 

IF (IS .EO. NS) RETURN 


003630 


01574 

488* 


IF (NTROPY .EO. 0) GO TO 4012 

ANK 4/83 

003635 


01574 

489* 

C 

SPECIAL ENTROPY OPTION NTROPY * 5 


003635 


01576 

490* 


DO 4010 I = 1 ,M 


003654 


01601 

491* 

4010 

F2FIX( I ) = UKAPPA ( I ) *F( KAPPA , 2 )/ALPH 


003654 


01603 

492* 


F2 F i X ( KAPPA ) = F ( KAPPA , 2 )/ALPH 


003660 


0 1 604 

493* 


DO 4011 I = K.J 


003667 


01607 

494* 

401 1 

F2F IX( I ) = ( F (KAPPA , 2 ) + ( F ( NET A , 2 ) - F( KAPPA, 2) )*UKAPPA( I ) )/ALPH 

ANK 8/83 

003667 


0161 1 

495* 


F2FIX(NETA ) = F (NETA , 2 )/ALPH 


003674 


01612 

496* 

4012 

IF (IS -EO. 1) GO TO 327 


003700 


01614 

497* 


DO 326 I = 2 , J 


003702 


01617 

498* 


M = I 


003707 


01620 

499* 


IF ( F ( I , 2 ) - F2FIX( I ) *ALPH . LT . 0.0) M * I + 1 

ANK 8/83 

003711 


01622 

500* 

326 

IF(ABS((F(I ,2)-F2FIX(I)*ALPH)/(F(M,2)-F(M-1 ,2) ) ) . GT . RATLIM )G0T0327ANK 8/83 

003721 


01625 

501* 


KONRFT= 1 


003736 


01626 

502* 


RETURN 


003740 


01627 

503* 

327 

CALL REFIT 


003744 


01630 

504* 


KONRFT = 2 


003745 


01631 

505* 


RETURN 


003747 


01632 

506* 


END 

B 1 1 A 307 

004014 



1 






] 


■ 1 




@SYS$*MSFCFOR$ ..FOR , WUS TRMBL 
HSA E3 -12/10/84-22:24:09 (31,32) 

-23 

COMMON/ACPk/ACCPKi i ACC 

COMMON/ ACCN/ACCPK , I LAM , SPOT 

COMMON/ R E TH/RE THMO 

COMMON/RUF/DUMM 1 , DUMM2 , DUMM3 , DUMM4 , DUMM5 . 0UMM6 , DUMM7 , DUMM8 , DUMM9 , 

$ DUMMiO.bUMMI 1 .DUMMi^W.'iC^ 

COMMON /LAM/ ILAMIN 

-80 

IF ( I LAMIN. EQ . 0)GO TO 39 

IF(('lLAMVE67V)'OT''tb"29 

GO TO 39 

29 SALPH= 1 .' - ( ACCPk- ACCPk r>7 : 



39 CONTINUE 
-304 

c 

C ROUGHNESS OPTION (3) ICF = 3 

c 

IF( ICF. EO. 3)G0 TO 201 

GO TO 202 

201 CONTINUE 

R K S=R K * U T A U*R h6(i ) /VMU (I ) 

I F ( RKS . LE . 4 . 535 )PCT=0 . O 

IF ( RKS . GT ^4 . 535V AND .RKS .LE. 4000. )PCY= 

IF ( RKS . GT . 4000. )PCT=2 . O 

D U MM 1 7 = P C T • 

I F ( ABS ( PCT ) . LE . . 001 )G0 TO 203 

DEACY=79*(VMU( i' )7(RHd'( l)*UtAU) )*(RkS**75 

203 CONTINUE 

ACY=ALPH*DEL*C 

202 CONTINUE 


SUBROUTINE TRMBL ENTRY POINT 004622 


STORAGE USED: CODEC 1) 004637; DATA(O) 000631; BLAN K C0MM0N(2 ) 000000 


COMMON 

BLOCKS 


0003 

COECOM 

000017 

0004 

0005 

COECON 

EDGCOM 

000014 

001216 

0006 

0007 

EPSCOM 

ERRCOM 

000045 

000571 

0010 

0011 

ETACOM 

HISCOM 

000036 

000344 

0012 

0013 

INPUTI 

INTCOM 

000006 

000123 

0014 

0015 

INTER I 
NONCOM 

000004 

035431 

0016 

0017 

N2ER0 

PRMORG 

OOOOOI 

000455 

0020 

0021 

PRPCOM 

PRPERT 

000303 

000074 

0022 

0023 

PRPNPT 

SAVTBL 

000076 

000067 

0024 

TURB 

000020 



0025 

VARCOM 

000645 

0026 

ACPK 

000002 

0027 

ACCN 

000003 

0030 

RETH 

OOOOOI 

0031 

RUF 

000022 

0032 

LAM 

OOOOOI 


external.. refer 


0033 L I AD 

0034 TAYLOR 

0035 ERP 

0036 ERF 

0037 NERR2$ 

6640 NWDU$ 

0041 NI02$ 

0042 SORT 

0043 EXP 

0044 XPRR 

0045 TANH 

0046 COSH 

0047 NERR3$ 


STORAGE 

ASSIGNMENT (BLOCK. TYPE, RELATIVE LOCATION, NAME) 










OOOI 


002617 

1000G 

OOOI 


000012 

1001 L 

0001 


000213 

1002 L 

OOOI 


001402 

1003L 

0001 


004232 

1004L 

OOOI 


004245 

1005L 

OOOI 


001534 

103L 

0001 


0031 14 

1036G 

OOOI 


001576 

104L 

0001 


003454 

1 1 0OG 

0001 


003565 

1 1 22G 

0001 


00366 1 

1 1 36G 

0001 


003716 

1 1 50G 

OOOI 


00405 1 

1 1 77G 

0001 


004074 

1210G 

OOOI 


004167 

1226G 

OOOI 


004310 

1255G 

0001 


004434 

1275G 

OOOI 


00451 1 

1307G 

0001 


004556 

1317G 

OOOI 


000577 

15L 

0001 


000074 

2003L 

0001 


000123 

2004L 

OOOI 


000155 

2005 L 

0001 


002456 

20 1 L 

0001 


002560 

202 L 

0001 


002553 

203L 

OOOI 


000227 

247G 

OOOI 


000264 

29L 

0001 


001651 

305L 

0001 


001 127 

32L 

OOOI 


001702 

320L 

OOOI 


0004 1 5 

321G 

0001 


000432 

324G 

0001 


000752 

33L 

0001 


001712 

330L 

0001 


001742 

33 1 L 

0001 


002022 

350L 

OOOI 


002 1 1 1 

362L 

0001 


000275 

39L 

OOOI 


0007 10 

400G 

0001 


003773 

400L 

0001 


004027 

401 L 

OOOI 


004063 

405L 

0001 


003770 

406L 

OOOI 


004133 

415L 

OOOO 


000360 

42F 

OOOI 


000064 

43L 

OOOI 


001065 

431G 

OOOO 


000437 

44F 

OOOO 


000407 

45F 

0001 


001215 

456G 

OOOO 


000417 

46F 

OOOI 


001220 

46 1 G 

OOOO 


000351 

47F 

OOOI 


001336 

477G 

OOOO 


000457 

48F 

OOOO 


000516 

49F 

OOOI 


002143 

505L 

0001 


002216 

525L 

0001 


002317 

532L 

0001 


002664 

547L 

0001 


002701 

550L 

OOOI 


003253 

554L 

0001 


003203 

555L 

OOOI 


001656 

561G 

0001 


001675 

573G 

0001 


004252 

600L 

OOOI 


001706 

601G 

0001 


001775 

6 16G 

OOOI 


002101 

636G 

0001 


004600 

650L 

0001 


002206 

663G 

OOOI 


002213 

670G 

0001 


003257 

700L 

OOOI 


003650 

703L 

0001 


002273 

71 1G 

0001 


001204 

75L 

0003 


OOOOOO 

A 

OOOO 

R 

000321 

ABECK 

0027 

R 

000000 

ACCPK 

0026 

R 

OOOOOO 

ACCPK 1 

0026 

R 

OOOOOI 

ACCPK2 

OOOO 

R 

00034 1 

ACEB 

OOOO 

R 

000325 

ACY 

OOOO 

R 

0003 1 1 

AF 

0025 

R 

OOOOOO 

ALPH 

001 1 


OOOOOO 

ALPHD 

0015 

R 

OOOOOO 

AM 

OOOO 

R 

000301 

BBECK 

OOI 1 

R 

OOOOOI 

BETAP 

OOOO 

R 

000312 

BF 

0003 


000003 

C 

0021 

R 

666666 

CAPC 

OOOO 

R 

"666367 

CAPY 

0013 


OOOOOO 

CASE 

0013 

R 

000015 

CBAR 

OOOO 

R 

000300 

CBECK 

OOOO 

R 

000275 

CCEB 

0005 


OOOOOO 

CG 

0004 


666006 

CK 1 

0004 

R 

000006 

CK 6 

0023 

R 

OOOOOO 

CL 

0006 

R 

OOOOOO 

CLNUM 

0021 

R 

000017 

CPBAR 

OOOO 

R 

000324 

CRD 

001 1 

R 

000145 

Cl 

0003 

R 

000005 

CIO 

0003 

R 

000007 

C 1 3 

001 1 


000146 

C 2 

0003 

R 

OOOOII 

C26 

0003 

R 

000012 

C28 

OOII 

R 

000147 

C3M 

0003 

R 

000013 

C32 

0003 

R 

000015 

C53 

0003 

R 

000016 

C56 

0003 

R 

000002 

C7 

0003 


000006 

D 

OOOO 

R 

000320 

DADA 

OOOO 

R 

000313 

DADPP 

OOOO 

R 

000306 

DADVP 

OOOO 

R 

000277 

DB 

0020 

R 

000255 

DCAPCH 

0020 

R 

000067 

DCAPCK 

OOOO 

R 

OOOOOO 

DCAPCW 

0023 

R 

OOOOOI 

DCLNUM 

OOOO 

R 

000344 

DEACY 

OOOO 

R 

000304 

DEL 

0023 

R 

000002 

DELCON 

OOOO 

R 

000007 

DELTA 

0023 

R 

'666663 

DEPC 

OOIO 

R 

666617 

DETA 

0006 

R 

OOOOOI 

DL 

OOOO 

R 

000346 

DLDA 

0023 

R 

000004 

DPI 

0020 


000256 

DPRH 

0020 

R 

OOOOOO 

DRHOH 

OOOO 

R 

000331 

DRHOI 

0020 

R 

OOOOOI 

DRHOK 

OOOO 

R 

000332 

DUM 

0031 


OOOOOO 

DUMM1 

0031 


000011 

DUMMIO 

0031 


000012 

DUMM1 1 

0031 


000013 

DUMM12 

0031 


000017 

DUMM16 

0031 

R 

000020 

DUMM17 

0031 


000021 

DUMM18 

0031 


OOOOOI 

DUMM2 

0031 


000002 

DUMM3 

0031 


000003 

DUMM4 

0031 


000004 

DUMM5 

0031 


000005 

DUMM 6 

0031 


000006 

DUMM7 

0031 


666667 

DUMM 8 

0031 


OOOOIO 

DUMM9 

OOOO 

R 

000326 

DUM1 

OOOO 

R 

000327 

DUM2 

0023 

R 

000042 

DVS 

OOOO 

R 

000071 

DYA 

0003 


OOOOIO 

E 

0006 

R 

000020 

ELCON 

0007 

R 

000376 

ENL 

OOOO 

R 

000330 

EPI 

OOOO 

R 

000322 

EPS 

0006 

R 

000021 

EPSA 


J s - 


J 


J 


J 


J 


j 


, i 1 “ 1 ' ! j l 1 1 1 ' 1 " 1 '] i i ; 

W w w 


0023 R 000043 EPS 1 0036 R 000000 ERF 0035 R OOOOOO ERP OOIO R OOOOOO ETA OOOO R 000345 EXPA 

0025 R 000001 F 0007 OOOOOO FLE OOOO R 000264 FM 0031 000016 FMF 0025 R 000075 G 

0022 OOOOOO HB OOII R 000231 HF 0022 R 000017 HP 0013 I 000016 I 0012 OOOOOO IBODY 

003 1 I 000015 ICF 0017 OOOOOO I DISC OOlS'T'* ^000005 I FLOW 0027 I 66666 1 I LAM 0032 ’T'OC^ 

OOOO 000574 INJP$ OOOO I 000334 INK OOOO I 000274 IPRT 0013 000017 10 0013 I 000020 IS 

0013 000021 I SH O066‘T : ’0O0335'’d OOOO *1 666316 K * 0013 T "b66023”KAPPA‘“ 

0014 OOOOOO KBC 0013 000024 KONRFT 0014 I 000003 KQ10 0013 000025 KR9 OOOO I 000315 L 

0013 I 0001 To MAT I d 0013 OOOTiT' MAT 2 I 6666 I 00034 7 MINK OOOO T 000333 MPJ 0013 *1 “ : 6bo'Ti4“NiETA 

0013 I 000115 NNLEQ 0013 000116 NON 0013 I 000121 NSP 0013 I 000122 NSPM1 0016 I OOOOOO NUL 

0003 666614 o 6666 ‘ r 666323 onk 666oX‘66o343"pct 6623 "*r ' 066644 " pim ' 6623 ' ■'W"66664S"'pm 

OOOO R 000317 PPL 0021 R 000055 PR 0006 R 000040 PRT 0022 000020 OR OOOO R 000305 RC 

6 o 23 ''r"' 666 o 46 ‘'red 0030 666666 re t hmo 6666 ''r"' 666 o 4 T''retr 6622 r 666637 ' rho 6665 R 666 1 47 rho e 

0022 R 000056 RHOP 0006 R 000042 RHO VS 0031 R 000014 RK OOOO R 000342 RKS 0017 R 000373 S 

6666" r 666363 salph 6666 r 666643 set 6 o 25 ""r"" 666”T5"2 ""sp 6627""r""666662”"spct 6666 r 666 3 56 sq p i 

0024 R OOOOOO STURB OOOO R 000336 TAUW 0022 R 000075 TP OOOO R 000276 TPCON 0023 R 000047 TREE 

0005 R 000767 TT VC 6024""r"'66666T"TuRPR 66 06 666770 TVCC 6665 R 66T652 UE 6666"r"’660337"UTAU 

OOOO R 000314 VA 0023 R 000050 VINTR 0020 R 000264 VMU 0005 R 001134 VMUE OOOO R 000340 VWP 

666S"W"66627o"xp 6666"W"666o44"‘yap 6666 r 666316 yd i 


00101 

1* 


SUBROUTINE TRMBL(ILK) 


OOOOOO 

00101 

2* 

C 



OOOOOO 

00103 

3* 


COMMON /COECOM/ A ( 2 ) . C7 , C ( 2 ) , C 10, D , C 1 3 , E , C26 , C28 , C32 , 0 , C53 , C56 

/COECOM/ 

OOOOOO 

00104 

4 * 


COMMON /COECON/ CK 1(6) , CK6 ( 6 ) 

/COECON/ 

OOOOOO 

00105 

5* 


COMMON /EDGCOM/ CG ( 103 ) , RHOE ( 400) , TTVC , TVCC ( 50) , UE ( 50) , VMUE ( 50) 

/EDGCOM/ 

OOOOOO 

00106 

6* 


COMMON /EPSCOM/ CLNUM,DL( 15) , ELCON, EPSA( 15 ) , PRT , RETR . RHOVS , SCT , YAP/EPSCOM/ 

OOOOOO 

00107 

7* 


COMMON /ERRCOM/ FLE( 254 ) , ENL( 1 23 ) 

/ERRCOM/ 

OOOOOO 

001 10 

8* 


COMMON /ETACOM/ ETA ( 1 5 ) , DETA ( 1 5 ) 

/ETACOM/ 

OOOOOO 

001 1 1 

9* 


COMMON /HISCOM/ ALPHD , BETAP( 100) , C 1 , C2 , C3M( 50) ,HF( 15 , 5) 

/HISCOM/ 

OOOOOO 

001 12 

10* 


COMMON / INPUTI/ IBODY (5). IF LOW 

/INPUTI/ 

OOOOOO 

00113 

1 1* 


COMMON /INTCOM/ CASE ( 1 3 ) , CBAR , I , 10 , I S , I SH( 2 ) , KAPPA , KONRFT , KR9 ( 5 1 ) 

, / INTCOM/ 

OOOOOO 

00113 

12* 


1 MAT Id , MAT2I ( 3 ) , NETA , NNLEQ , NON( 3) , NSP , NSPM1 

/INTCOM/ 

OOOOOO 

001 14 

13* 


COMMON /INTERI/ KBC(3),KQ10 

/INTERI/ 

OOOOOO 

00115 

14* 


COMMON /NONCOM/ AM(123,123) 

/NONCOM/ 

OOOOOO 

OOl 16 

15* 


COMMON /NZERO/ NUL 

/NZERO/ 

OOOOOO 

OOl 17 

16* 


COMMON /PRMORG/ ID I SC ( 25 i j , S( 50) 

/PRMORG/ 

OOOOOO 

00120 

17* 


COMMON /PRPCOM/ DRHOH , DRHOK ( 54 ) , DC APCK ( 1 18 ) , DCAPCH . DPRH( 6 ) , VMU( 15)/PRPC0M/ 

OOOOOO 

00121 

18* 


COMMON /PRPERT/ CAPC( 1 5 ) , CPBAR( 30) , PR( 1 5 ) 

/PRPERT/ 

OOOOOO 

00122 

19* 


COMMON /PRPNPT / HB ( 1 5 ) , HP , QR ( 1 5 ) f RHO (15), RHOP ( 1 5 ) , TP 

/PRPNPT/ 

OOOOOO 

00123 

20* 


COMMON /SAVTBL/ CL , DCLNUM , DELCON ,DEPC,DPi( 15,2), DVS , EPS i , P IM , PM , 

/SAVTBL/ 

OOOOOO 

00123 

21* 


1 RED.TREF. VINTR( 15) 

/SAVTBL/ 

OOOOOO 

00124 

22* 


COMMON /TURB/ STURB, TURPR( 15) 

/TURB/ 

OOOOOO 

00125 

23* 


COMMON /VARCOM/ ALPH, F ( 15 , 4 ) , G{ 15 , 3 ) , SP( 15 , 3 , 7 ) 

/VARCOM/ 

OOOOOO 

00126 

24* 


COMMON/ ACPk/ ACCPK i , ACCPK2 


NEWOOOOOO 

00127 

25* 


COMMON/ACCN/ ACCPK . ILAM , SPCT 


NE WOO OOOO 

00130 

26* 


COMMON/RETH/RETHMO 


NEWOOOOOO 

00131 

27* 


COMMON/ RUF /DUMM 1 , DUMM2 , DUMM3 , DUMM4 , DUMM5 , DUMM6 f DUMM7 , DUMM8 , DUMM9 , 


NEWOOOOOO 

00131 

28* 


$ DUMM 1 0 , DUMM 1 1 , DUMM 1 2 , RK , I C F . F MF , DUMM 1 6 , DUMM 1 7 , DUMM 1 8 


NEWOOOOOO 

00132 

29* 


COMMON /LAM/ ILAMIN 


NEWOOOOOO 

00132 

30* 

C 



OOOOOO 

00133 

31* 


DIMENSION DCAPCW(7 ) .DELTA (50) ,DYA( 123 ) „ FM( 4 ) ,XP( 4 ) 

ANK 4/83 

OOOOOO 

00133 

32* 

c 



OOOOOO 

00134 

33* 


GO TO ( lOOl , 1002, 1003, 1004, 1005) . ILK 


OOOOOO 

00135 

34* 

1001 

IPRT = 0 

ANK 8/83 

000012 

00136 

35* 


I F ( Y AP ) 2002 , 2003 , 2004 


000012 

00136 

36* 

c 

CEBECi -SMITH TURBULENCE MODEL 


000012 

00141 

37* 

2002 

YAP = - YAP 


000015 

00142 

38* 


CCEB =26.0 


000016 



00143 

39* 


WRITE (6.47) 



000020 


00145 

40* 

47 

FORMAT (/IX, 'CEBECI-SMITH TURBULENCE MODEL') 



000025 


00146 

41* 


WRITE (6,42) ELCON, YAP.CLNUM 



000025 


00153 

42* 

42 

FORMAT (/IX, 'MIXING LENGTH CONSTANT ELCON =', 1PE 13 . 6/ IX ,' SUBLAYER 



000035 


00153 

43* 


1 CONSTANT YAP' , 8X , '=' .E13.6/1X, 'CLAUSER NUMBER CLNUM' ,9X, '=' , E 13 . 6) 



000035 


00154 

44* 


IF ( PRT .GT. 0.0) WRITE (6,45) PRT 



000035 


00160 

45* 

45 

FORMAT (/IX, 'TURBULENT PRANDTL NUMBER PRT =',1PE13.6) 



000046 


00161 

46* 


IF (PRT .GT. 0.0) GO TO 43 



000046 


00163 

47* 


IPRT = 1 



00005 1 


00164 

48* 


TPCON = -PRT 



000053 


00165 

49* 


WRITE (6,46) TPCON 



000055 


00170 

50* 

46 

FORMAT (/IX, 'VARIABLE TURBULENT PRANDTL NUMBER IN USE '/IX, 



000064 


00170 

51* 


1 'TURBULENT PRANDTL CONSTANT =',1PE13.6) 



000064 


00171 

52* 

43 

WRITE (6,44) SCI.RETR 



000064 


00175 

53* 

44 

FORMAT (/IX, 'TURBULENT SCHMTDT NUMBER SCT = ' , 1 PE 1 3 . 6/ IX , 



000072 


00175 

54* 


1 'TRANSITION MOM. THICK. RETR =' .E13.6) 



000072 


00176 

55* 


GO TO 2005 



000072 


00176 

56* 

C 

BECKWITH-BUSHNELL TURBULENCE MODEL 



000072 


00177 

57* 

2003 

DB = ELCON/CLNUM 



000074 


00200 

58* 


CBECK = 26.0 



000076 


00201 

59* 


BBECK=CLNUM 



OOOIOO 


00202 

60* 


WRITE (6,48) BBECK, ELCON, PRT 



000102 


00207 

61* 

48 

FORMAT (/IX, 'BECKWITH-BUSHNELL TURBULENCE MODEL '// IX BECKWITH CON 


OOO 1 1 2 


00207 

62* 


1 ST ANT BBECK' ,6X, ' = ', 1PE13.6/1X, 'MIXING LENGTH CONSTANT ELCON 



000 1 1 2 


00207 

63* 


2 E13.6/1X, 'TURBULENT PRANDTL NUMBER PRT =',E13.6) 



000112 


00210 

64* 


WRITE (6,44) SCf, RETR 



000 1 1 2 


00214 

65* 


GO TO 2005 



000121 


00214 

66* 

C 

KENDALL TURBULENCE MODEL 



000121 


00215 

67* 

2004 

WRITE (6,49) 



000123 


00217 

68* 

49 

FORMAT (/iX, 'KENDALL TURBULENCE MODEL') 



000127 


00220 

69* 


WRITE (6,42) ELCON, YAP.CLNUM 



000127 


00225 

70* 


WRITE (6,45) PRT 



000137 


00230 

71* 


WRITE (6,44) SCT, RETR 



000145 


00234 

72* 

2005 

DELCON = ELCON 



000155 


00235 

73* 


DCLNUM = CLNUM 



000156 


00236 

74* 


I FLOW = I FLOW - 2 

ANK 

4/83 

000 1 60 


00237 

75* 


KQ 10 = 1 

ANK 

4/83 

000163 


00240 

76* 


IF (RETR .GT. 0.0) KQ10 = -1 

ANK 

4/83 

000165 

* 

00242 

77* 


IF (RETR .LT. -1.999) KQ10 = RETR - 10.010 

ANK 

4/83 

000172 


00244 

78* 


RETURN 



000207 


00244 

79* 

c* *** 

CALCULATES EPS2/NUE AND ITS DERIVITIVES AS DVS AND AM( 1 .... ) 



000207 


00245 

80* 

1002 

IWK = 0 



0002 1 3 


00245 

81* 

C 

INTERMITTANCY CORRECTIONS 



0002 1 3 


00246 

82* 


DO 13 I = 1 , NETA 



000213 


00251 

83* 


VINTR(I) = 1.0 



000227 


00252 

84* 

13 

IF (CBECK .LE. 0.0 .AND. I .GT. KAPPA) VINTR(I) = 1.0 - (ETA(I) - 



000231 


00252 

85* 


1 ETA (KAPPA ))/(ETA(NETA) - ETA(KAPPA) ) 



000231 


00255 

86* 


SALPH = 1 .0 



000253 


00256 

87* 


I F ( I LAM IN . EQ . 0)G0 TO 39 



NEW000255 


00260 

88* 


I F ( I LAM . EQ . 1 )GQ TO 29 



NEW000257 


00262 

89* 


GO TO 39 



NEW000262 


00263 

90* 

29 

SALPH= 1 . -(ACCPK-ACCPK1 )/ ( ACCPK2- ACCPK 1 ) 



NEW000264 


00264 

00265 

91* 

92* 

39 

.. spct^lph. 100. ( SALPH.) IP© 

CONTINUE 



NEW000272 

NEW00O275 


00266 

93* 


IF (S(IS) .LT. 2 . 0*STURB ) SALPH = S(IS)/STURB - 1.0 



000275 


00270 

94* 


ELCON = DELCON* SORT ( SALPH) 



000310 


00271 

95* 


TPCON = TPCON* SORT ( SALPH ) 



000316 


00272 

96* 


BBECK = DCLNUM* SORT ( SALPH) 



000321 


00273 

97* 


CLNUM = DCLNUM*SALPH 



000324 


00273 

98* 

COMMENT .. C3=-DEL/VMUE , RHOVS=-OEL/VMUE*RHOV=-RED*RHOV/(RHOE*UE ) 



000324 
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00274 

S9* 


DEL = -C3M( IS ) *VMUE( IS) 

ANK 8/83 

000327 


00275 

100* 


RED = -C3M( IS ) *RH0£( IS)*UE(IS) 

ANK 8/83 

000333 


00276 

101* 


RORED + CLNUM 


000337 


00277 

102* 


PM = 0.0 

ANK 5/83 

000341 


00300 

103* 


EPS 1 =0. 


000342 


00301 

104* 


DEPC=0. 


000343 


00302 

105* 


RH0VS=C1*F( 1 , 1 )+HF ( 1,5) 


000344 


00303 

106* 


IF (RC .LT. 0.0) GO TO 75 


000350 


00305 

107* 


DADVP = RHOE (IS) /RH0( 1 ) 


00036 1 


00306 

108* 


CAPY = DADVP/RH0( 1 )*RH0P( 1 ) 


000364 


00307 

109* 


YD I =0 . 


000367 


00310 

1 io* 


AF = 0.0 


000370 


00311 

111* 


BF = 0.0 


000371 


00312 

112* 


AM( 1 , 1 )=0. 


000372 


00313 

1 13* 


DADPP = (0.995 - CBAR )/ (1.0 -■ CBAR ) 


000373 


00314 

114* 


SALPH = 0.0 


000401 


00315 

1 15* 


VA = 0.0 


000402 


00316 

1 16* 


DVS=0. 


000403 


00317 

1 17* 


L = 1 17 


000404 


00320 

1 18* 


DO 66 1=1 ,NETA 


000415 


00323 

1 19* 


DO 3 K= 1 , NSP 


000432 


00326 

120* 

3 

DRHOK(K-I) = AM( L , K+97 ) 


000432 


00330 

121* 


PPL = - CAPY 


000434 


00331 

122* 


DADA = DADVP 


000436 


00332 

123* 


ABECK = YDI 


000440 


00333 

124* 


EPS = BF 


000442 


00334 

125* 


ONK = RHOE( IS )/RHO( I ) **2 


000444 


00335 

126* 


CIO = C7*F(I .2) 


000452 


00336 

127* 


C56 = F ( I , 2 )/ ALPH 


000455 


00337 

128* 


CRD=DRHOH*C 10 


000460 


00340 

129* 


ACY = - VA 


000462 


00341 

130* 


IF (I .GE. NETA) GO TO 15 


000464 


00343 

131* 


DADVP = RHOE( IS)/RHO( 1+1 ) 


000470 


00344 

132* 


CAPY = DADVP/RHO( 1+1 ) *RHOP( 1+ 1 ) 


000474 


00345 

133* 


PPL = PPL + CAPY 


000477 


00346 

134* 


YDI = DETA ( I )/2 . 0* ( DADVP + DADA + DETA ( I )/6 . 0*PPL ) 


000501 


00347 

135* 


SALPH = SALPH + YDI 


000513 


00350 

136* 


DUM1 = YDI *( F ( I , 3 ) /DADA - F ( I + 1 , 3 ) /DADVP ) /6 . 6 


0005 1 5 


00351 

137* 


DUM2 = F (NETA , 2 ) - (F(I,2) + F ( 1+ 1 , 2 ) )/2 .0 


000525 


00352 

138* 


DVS=DVS+YDI*(DUM2-DUM1/2. ) 


000532 


00353 

139* 


VA = YDI»*2 


000537 


00354 

140* 


ACY = ACY + VA 


000542 


00355 

141* 


AF = AF + DETA(I)/2. 0* (DUM2 - DUM1) 


000544 


00356 

142* 


ABECK = ABECK + YDI 


000552 


00357 

143* 


BF = ALPH»DEL*DETA( I )/2.0 


000555 


00360 

144* 


IF (I .EQ. KAPPA) EPI = BF*DADPP 


000562 


00362 

145* 


IF (I .NE. KAPPA) EPS = EPS + BF 


000570 


00364 

146* 

15 

DRHOI = - AF *DADA/ RHO( I ) - F ( I , 3 ) / 1 2 . 6* ACY/RHOE ( I S ) 


000577 


00365 

147* 


IF (CBECK. GT . 0. ) GO TO 33 


00061 1 


00367 

148* 


DUM = AM( L , 98 )*DRHOI *RC 


000613 


00370 

149* 


AM( 1,1+3) = AM( 1,1+3) - RC+ABECK/2 .0 + C7*DUM*F ( 1,2) 


0006 1 6 


00371 

150* 


IF (I .LE. 1) AM ( 1 , 3 ) = AM( 1,3) - RC/DADA+ACY/12 .0 


000626 


00373 

151* 


IF (I .GT. 1) CALL LIAD (-1,1, NETA- 2+ I, -RC/DADA+ACY/ 12.0) 


000640 


00375 

152* 


AM( 1,1) = AM( 1,1) - C7*DUM*F( I , 2 )**2/ALPH 


000663 


00376 

153* 


MPJ=MAT 1J+1+I 


000700 


00377 

154* 


DO 60 K=NUL, NS PM 1 


000710 


00402 

155* 


IF (K .GT. 0) DUM = AM( L , K+98 ) *DRHOI *RC 


000713 


00404 

156* 


IF (I .EQ. NETA) CALL LIAD (K, 1.1, DUM) 


000722 


00406 

157* 


IF (I .NE. NETA) AM(I.MPJ) = AM(1,MPJ) + DUM 


000733 


00410 

158* 

60 

MPd = MPd + NETA 

ANK 8/83 

000742 




00412 

00412 

00413 

1 59 * 
160* 
161* 

C 

33 

GO TO 32 

BECKWITH-BUSHNELL MODEL 

IF (I .LT. KAPPA) AM( 1,1) = AM(1,l) + DEL* YDI + CRD*C56*0NK*EPS 


000750 

000750 

000752 

00415 

162* 


IF (I .EQ. KAPPA) AM( 1,1) = AM( 1 , 1 )+CRD*C56*0NK*EPS+DADPP*DEL*YDI 

000777 

00417 

163* 


IF (I ,GE. KAPPA) AM( 1,1) = AM( 1 , 1 ) + EPI *0NK*CRD*C56 


001013 

0042 1 

164* 


INK= 1+3 


001024 

00422 

165* 


AM( 1 , INK ) = - CRD*EPS*ONK 


001030 

00423 

166* 


IF (I .EQ. KAPPA) AM( 1 , INK ) = AM(I.INK) - CRD«EPI*ONK 


001035 

00425 

167* 


IF (I .EQ. KAPPA + 1) AM( 1 , INK) = - CRD*BF*ONK 


001046 

00427 

168* 


INK= INK+ 1 


001057 

00430 

169* 


DO 68 K= 1 ,NSP 


001065 

00433 

170* 


INK = INK + NETA 

ANK 8/83 

001065 

00434 

171* 


AM( 1 , INK ) = - EPS*ONK*DRHOK(K- 1 ) 


001071 

00435 

172* 


IF (I . EQ. KAPPA) AM (1, INK) = AM( 1 , INK ) - EPI *ONK*bRHOK(K- 1 ) 


001075 

00437 

173* 

68 

IF (I .EQ. NETA) CALL LIAO (K- 1,1,1, - EP I *ONK*DRHOK(K- 1 ) ) 


001105 

00442 

174* 

32 

IF (I .EQ. KAPPA - 1) DELTA(IS) = SALPH 


OOI 127 

00444 

175* 

66 

L = MAT 1 J + I 


001137 

00446 

176* 


DVS=AMAX 1(0. ,RC*DVS) 


001 145 

00447 

177* 


IF ( CBECK .LE. 0.0) AM(1,MAT1J) = AM(I.MATIJ) + SALPH*RC 


001154 

00451 

178* 


DELTA(IS) = ALPH*DEL*(DELTA( IS) + (SALPH - DELTA(IS)) *DADPP ) 


001167 

00452 

179* 


RETURN 


00 1 200 

00453 

180* 

75 

RC=-RC 


001204 

00454 

181* 


DVS=0. 


001205 

00455 

182* 


DO 80 I =2, NETA 


001220 

00460 

183* 


DO 76 J = 1,3 

ANK 6/83 

001220 

00463 

184* 

76 

FM( J ) = F ( I , J+ 1 ) 

ANK 6/83 

001220 

00465 

185* 


FM( 4 ) = F ( I - 1 , 4 ) 


001222 

00466 

186* 


CALL TAYLOR ( DET A ( I - 1 ) , FM( 2 ) . FM . XP ) 


001224 

00467 

187* 


DVS = DVS+F (1,2) *XP( 1 )+F ( I , 3 )*XP( 2 )+F ( I , 4 ) *XP( 3)+F(I-1 , 4 ) *XP( 4 ) 


001234 

00470 

188* 


AM( 1,1+3) = AM( 1,1+3) + XP(1) 


001251 

004 71 

189* 


CALL LI AD ( - 1 , 1 f NETA+I-2,XP(2) ) 


001254 

00472 

190* 


CALL LI AD (-1,1 , 2*NETA+I-2,XP(3) ) 


001266 

00473 

191* 

80 

CALL LI AD ( - 1 , 1 ,2*NETA + I-3, XP(4) ) 


001301 

00475 

192* 


DVS = DVS*RC/F (NETA , 2 ) 


001321 

00476 

193* 


DO 85 1=1, NNLEQ 


001326 

00501 

194* 

85 

AM(I.I) = - 2 . 0*AM( 1 , I )*RC/F (NETA , 2 ) 


001336 

00503 

195* 


AM( 1 , 2 )=AM( 1 ,2)-RC 


001343 

00504 

196* 


AM( 1 . MAT 1 J) = AM( 1 . MAT 10) + DVS/F ( NETA . 2 ) 


001346 

00505 

197* 


CALL LI AD( - 1 , 1 , NETA- 1 , RC ) 


001353 

00506 

198* 


DVS = AMAX 1 ( RC * ( F ( NETA , 1 ) - F( 1.1) > " DVS, 6.0) 


001364 

00507 

199* 


RETURN 


001376 

00510 

200* 

1003 

TURPR(I) = PRT 


001402 

00511 

201* 


TURPR ( 1 )=0. 


001404 

00512 

202* 


IF( ELCON . LE .0.00001 ) GO TO 401 


00 1 405 

00514 

203* 


IF( IPRT. EO. 1 ) GO TO 505 


001411 

00516 

204* 


I F ( I WK . EQ . 1) GO TO 401 


001414 

00520 

205* 


IF(CCEB.GT.O. -OR. CBECK. GT.O. ) GO TO 505 


001417 

00520 

206* 

c**** 

CALCULATES MIXING LENGTH AND ITS DERIVITIVES FOR KENDALL MODEL 


001417 

00522 

207* 


PIM = PM 

ANK 5/83 

001433 

00523 

208* 


PM = SORT ( ABS( RED/C26* (CAPC( 1)*F( 1 ,3) - ALPH*RHOVS*F ( I . 2 ) ) ) )/ 

ANK 5/83 

001435 

00523 

209* 

1 (CAPC( I ) *YAP ) 


001435 

00524 

210* 


IF (I .LE. 1) GO TO 305 


001457 

00526 

211* 


EPI = EXP(-(PM + PIM)/2.0*DETA( I- 1 ) ) 

ANK 5/83 

001463 

00527 

212* 


ONK = PM - PIM 

ANK 5/83 

001474 

00530 

213* 


IF (ONK/PM .GT. 1.0E-4) GO TO 103 

ANK 5/83 

001477 

00532 

214* 


PM = AMAX 1( PM. PIM) 

ANK 5/83 

001503 

00533 

215* 


ONK = 1.0 


001511 

00534 

216* 


AF= 1 .0 


001513 

00535 

217* 


BF = 1.0/PM 

ANK 5/83 

001514 

00536 

218* 


DADA = -2 . 0/PM* *2 

ANK 5/83 

001516 
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00537 

00540 

00541 

219* 

220* 

221* 


CRD = 1.0/PIM 
EPS = - 2. 0/P I M** 2 
GO TO 104 


001522 

001525 

001532 


00542 

00543 

222* 

223* 

103 

AF = SORT ( 2 .0*DETA( I - 1 )/ONK ) 
BF = ERP(AF*PM/2 .0) 

ANK 5/83 

001534 

001544 


00544 

00545 

224* 

225* 


DADA = 1.6 - AF*PM*BF 
CRD = ERP(AF*PIM/2.0) 

ANK 5/83 

001553 

001560 


00546 

00547 

226* 

227* 

104 

EPS = 1.6 - AF*PIM*CRD 
BF = BF - EPI *CRD 


001570 

001576 


00550 

00551 

228* 

229* 


DUM1 = EPI *( AF*CRD - CL)*DETA( I - 1 )/2 .0 
CL=CL*EPI+AF*BF 


001601 

001611 


00552 

00553 

230* 

231* 


DL( I ) = ALPH*ELCON*(ETA(l) - CL) 

DUM2 = AF/ONK* (BF/2 . 0 + DADA*AF*PM/4 .0 - EPI *EPS*AF*PIM/4 . O) 

ANK 5/83 
ANK 5/83 

001616 

001623 


00554 

00557 

232* 

233* 

305 

I F ( I -2 ) 305,330,320 
DL( 1 ) = 0.0 

ANK 5/83 

001644 

001651 


00560 

00563 

234* 

235* 

307 

DO 307 d= 1 ,NNLEO 
AM(2 , d ) =0. 


001651 

001656 


00565 

00566 

236* 

237* 


CL =6. 

DPI( 1 , 2 ) = CAPC( 1 ) 


001657 

001660 


00567 

00570 

238* 

239* 


DP 1(3. 1) = F ( 1 , 3 ) *DCAPCH 
IF (NSPM1 .LE. 0) GO TO 350 


001662 

001665 


00572 

00575 

240* 
24 1* 

315 

DO 315 K = 1 ,NSPM1 

DP I (K+3 , 1 ) = F ( 1 , 3 ) *DCAPCK ( K ) 


001670 

001675 


00577 

00600 

242* 

243* 

320 

GO TO 350 
DO 325 J=1 , NNLEQ 


001700 

001702 


00603 

00605 

244* 

245* 

325 

330 

AM ( 2 , d ) = AM( 2 , d ) *EPI 

DUM = - ALPH*ELCON* ( DUM 1 + DUM2 - EPI *EPS* AF**2/2 . 0) *TREF 


001706 

001712 


00606 

00607 

246* 

247* 


AM ( 2 , 1 ) = AM( 2 , 1 ) + (DL( I ) - EPI *DL( I - 1 ) )/ALPH 
L= I - 1 

ANK 5/83 

001727 

001736 


00610 

00611 

248* 

249* 

331 

AM ( 2 , 1 ) = AM (2 , 1 )+DPI( 1 , 1 ) *DUM 
AM( 2,2)= AM( 2,2) + DPI(2,1)* DUM 


001742 

001745 


00612 

00613 

250* 

251* 


AM( 2,3)= AM (2,3) + DPI ( i , 2 ) *DUM 
AM( 2 , L+3 ) = AM( 2 , L+3 )+DPI (2,2) *DUM 


001751 

001755 


00614 

00615 

252* 

253* 


J=MAT1 J+2 

DO 340 K=NUL , NSPM 1 


001764 

001775 


00620 

00621 

254* 

255* 


AM( 2 , d ) = AM ( 2 , d ) + DPI (K+3, 1 ) * DUM 

AM(2 , d+L- 1 ) = AM( 2 . d+L- 1 ) + DPI (K+3 , 2)*DUM 


002001 

002005 


00622 

00624 

256* 

257* 

340 

d = d + NET A 

IF (L .GE. I) GO TO 400 

ANK 8/83 

002011 

002015 


00626 

00627 

258* 

259* 

350 

T REF* RED/C26 /( 2 . *CAPC( I )*YAP*PM*YAP*CAPC( I ) ) 

DPI ( 3 , 2 ) = -PM/TREF* (DCAPCH/CAPC( I ) -DRHOH/ ( 2 . *RHO( I ) ) ) 

ANK 5/83 
ANK 5/83 

002022 

002034 


00630 

00631 

260* 

261* 


DPI (2,2)= C10+DPI (3,2 ) -RHOVS+ALPH 

DPI ( 1 , 1 ) = - C10*C56*DPI(3,2) - F(I,2)*RH0VS 


002047 

002054 


00632 

00633 

262* 

263* 


DPI ( 2 , 1) = - ALPH+C1 *F( 1,2) 
IF (NSPM1 .LE. O) GO TO 362 


002063 

002067 


00635 

00640 

264* 

265* 

360 

DO 360 K = 1.NSPM1 

DPI (K+3 , 2 ) = -PM/TREF* (DCAPCK(K )/CAPC( I ) -DRHOK(K)/ ( 2 . *RHO( I ) ) ) 

ANK 5/83 

002072 

002101 


00642 

00643 

266* 

267* 

362 

L=I 

DUM = - ALPH+ELCON* (DUM1 - DUM2 + DADA* AF* *2/2 . 0) *TREF 


002 1 1 1 
002112 


00644 

00646 

268* 

269* 


iF (I .LE. 1) RETURN 
IF (I - NETA) 331,400,400 


002126 
002 1 35 


00646 

00651 

270* 

271* 

C 

505 

CEBECI -SMITH AND BECKWITH -BUSHNELL MODELS 
DEL = -C3M( IS)*VMUE( IS) 

ANK 8/83 

002 1 35 
002143 


00652 

00653 

272* 

273* 


INK = I - 1 
ONK = - 12.0 


002146 

002151 


00654 

00656 

274* 

275* 


IF ( 1 . GT . 1) GO TO 525 

INK = 1 


002153 

002157 


00657 

00660 

276* 

277* 


ONK=ABS(ONK) 

TAUW = -AMAX 1 (C28 . 1 -OE-4 )*UE( IS )/ALPH/ C3M( IS ) 

ANK 8/83 

002161 

002163 


00661 

278* 


bCAPCW( i )=DCAPCH 


002174 




00662 

00665 

00667 

279* 

280* 

281* 

515 

DO 515 K= 1 , NSPM 1 
DCAPCW(K+1 )=DCAPCK(K) 
DO 520 0= 1 , NNLEO 


002206 
002206 
0022 1 3 


00672 

00674 

282* 

283* 

520 

DYA(J)=0. 

CAPY=0. 


002213 

002214 


00675 

00676 

' 284* 
285* 

525 

VA = DETA( INK ) *C26* (0. 50 - C53*DETA( INK)/ONK) 
CAPY=CAPY+VA 


002216 

002226 


00677 

00700 

286* 

287* 


DYA( 1)=DYA( 1 )+VA*DEL 
I F ( I -EQ.NETA) GO TO 532 


002230 

002234 


00702 

00703 

288* 

289* 


DADA = - DETA( INK)/2.O*C26/RH0( I ) *ALPH*DEL 
VA = DADA*DRHOH*C 10 


002237 

002247 


00704 

00705 

290* 

291* 


DYA ( 1 ) =DYA( 1 ) - VA*C56 
INK= 1+3 


002252 

002255 


00706 

00707 

292* 

293* 


DYA( INK ) =DYA( INK)+VA 
INK= INK+ 1 


002260 

002264 


00710 

00713 

294* 

295* 


DO 530 K= 1 , NSP 

INK = INK + NETA ANK 

8/83 

002273 

002273 


00714 

00716 

296* 

297* 

530 

DYA(INK) = DYA(INK) + DADA*DRHOK(K- 1 ) 
IF ( I . EO . 1) RETURN 


002275 

002303 


00720 

00722 

298* 

299* 


I F ( ONK . GT . 0 . ) GO TO 406 
ONK=ABS(ONK ) 


00231 1 
002314 


00723 

00724 

300* 

301* 

532 

UTAU = SORT ( T AU W/ RHO ( I ) ) 

I F ( CBECK . GT . 0 - ) GO TO 700 


002317 

002326 


00724 

00726 

302* 

303* 

VWP = ( HF (1,5) + F(1, 1 ) *C 1 )/( C3M( I S ) *RH0( 1 ) *UTAU ) ANK 

8/83 

002326 

002331 


00727 

00730 

304* 

305* 


EPI = EXP( YAP*VWP ) 
PPL=0. 


002342 

002350 


00731 

00731 

306* 

307* 


IF (ABS(BFTAP( IS) ) .GE. 1 .OE-7) PPL = -BETAP( IS) *RHOE( IS ) *UE( IS ) ANK 
1 / C3M( I S ) **2*CAPC( I )/ ( RHO ( I ) *UT AU ) **3 ANK 

8/83 

8/83 

002351 

002351 


00733 

00734 

308* 

309* 


EPS = EPI - 1.0 

IF (ABS(VWP) .LT. 1.0E-7) AF = YAP 


002400 

002403 


00736 

00740 

310* 

311* 


IF (ABS(VWP) .GE. 1.0E-7) AF = EPS/VWP 
BF = AF *PPL 


0024 1 1 
002420 


00741 

00742 

312* 

313* 


SALPH = BF + EPI 

IF (SALPH .LE. 0.0) SALPH = 1.0E-30 


002423 

002425 


00744 

00745 

314* 

315* 


SALPH = SORT (SALPH) 

ACEB = CCEB*VMU( I )/RHO( I )/UTAU/SALPH 


002432 

002436 


00746 

00746 

316* 

317* 

C 

ACY=ALPH*DEL*CAPY 


002445 

NEW002445 


00746 

00746 

318* 

319* 

C ROUGHNESS OPTION (3) ICF = 3 

C 


NEW002445 

NEW002445 


00747 

00751 

320* 

321* 


IF(ICF.E0.3) GO TO 201 
GO TO 202 


NEW00245 1 
NEW002454 


00752 

00753 

322* 

323* 

201 

CONTINUE 

RKS=RK*UTAU*RHO( I )/VMU( I ) 


NEW002456 

NEW002456 


00754 

00756 

324* 

325* 


IF( RKS . LE . 4 . 535)PCT=0. 0 

I F ( RKS . GT . 4 . 535 . AND . RKS . LE . 4000 . )PCT=1 .0 


NEW002464 
NEW00247 1 


00760 

00762 

326* 

327* 


I F ( RKS . GT . 4000 . )PCT=2.0 
DUMM 1 7 = PCT 


NEW0025 1 1 
NEW0025 1 7 


00763 

00765 

328* 

329* 


I F ( ABS( PCT ) . LE . .001 )G0 TO 203 

DEACY = . 9* ( VMU( I )/ ( RHO( I ) *UTAU ) ) * ( RKS** . 5 -RKS* EXP ( -RKS/6 . )) 


NEW00252 1 
NEW002525 


00766 

00767 

330* 

331* 

203 

CONTINUE 

ACY = ALPH*DEL*CAPY+DEACY 


NEW002553 

NEW002553 


00770 

00771 

332* 

333* 

202 

CONTINUE 
VA = ACY/ACEB 


NEW002560 

002560 


00772 

00773 

334* 

335* 


EXPA = EXP(-VA) 

DL ( I ) = ELCON*ACY * ( 1 . - EXP A ) ANK 

5/83 

002562 

002567 


00774 

00775 

336* 

337* 


DADA = ELCON* ( 1 .0 - (1.0 - VA)*EXPA) 
IF( IWK. EO. 1) GO TO 555 


002575 

002603 


00777 

338* 


DO 545 d=1 .NNLEO 


0026 1 7 


i 

_j 

J 

J 

J J J J J J J 1 _ J 

j 

J j ... 

_J ' J .. 




1 1 

1 

1 1 ! 1 1 1 1 1 

1 

] 

' ! 1 7 1 




V 




01002 

01004 

01005 

339* 

340* 

341* 

545 

AM(2,d) = DYA(d)*DADA 

DLDA = - ELC0N*EXPA*VA**2 

IF ( ABS( VWP ) . LT . 1 . E-07 ) GO TO 547 


002617 

002622 

002630 


01007 

01010 

342* 

343* 


DADPP = - ACEB/2. 6/VWP/ ( PPL/VWP + EPi/EPSj 

DADVP = - ACEB/2. 0»(- BF/VWP + YAP*(1.0 + PPL/VWP)*EPI )/(BF + EPI ) 


002634 

002646 


01011 

01012 

344* 

345* 

547 

GO TO 550 

DADPP=- ACEB/2. /(PPL+1 . /YAP) 


002662 

002664 


01013 

01014 

346* 

347* 

550 

DAbVP=DAbPP*( i . +YAP*PPL/2. ) 
BF = - C 10*C56*DRH0H 


002672 

002701 


01015 

01016 

348* 

349* 


AF = - C10*C56*DCAPCH 

DADA = DADPP*PPL*(AF/CAPC(I ) - 1 . 50*BF/RH0( I ) + 3.0/ALPH) - 1.50* 


002705 

002710 


01016 

01016 

350* 

351* 


1 aceb*bf/rh 6( i ) + aceb/alph + dadvp *vwp* ( bf/RHO ( i ) ]i . 6 + i.o/alph) 

2 + AF*ACEB/CAPC( I ) 


002710 

002710 


01017 

01020 

352* 

353* 


AM ( 2 , 1 )=AM(2, 1 )+blDA*bADA 

AM( 2 , 2 ) = AM( 2,2) + DLDA*DADVP*C1/C3M( IS)/RHO( 1 )/UTAU ANK 

8/83 

002755 

002760 


01021 

01022 

354* 

355* 


DADA = (- ACEB/2. 0 * 1 . 5b*DAbPP*PPL - bAbVP*VWP/2.6)?F( 1.3) 
AM( 2 , 3 ) = AM( 2 , 3 ) + DLDA*DADA 


002771 

003005 


01023 

01024 

356* 

357* 


INK=I+3 

DADA = C 10* ( ( ACEB + DADPP*PPL ) * (DCAPCH/CAPC ( I ) - 1 . 50*DRH0H/RH0( I ) 


003010 

003013 


01024 

01025 

358* 

359* 


1 ) + DADVP* VWP *DRHOH/RHO( I )/2 . O ) 
AM( 2 , INK ) = AM( 2 , INK ) + DLDA*DADA 


003013 

003034 


01026 

01027 

360* 

361* 


INK = INK + NETA + 1 ANK 

MINK=MAT 1 J+2 

CO 

00 

CO 

003040 

003044 


01030 

01030 

362* 

363* 


AM (2, MINK) = AM( 2 .MINK) + DLbA*DCAPCW'( 1 )/CAPC( 1 )*( - ACEB/2. 0 - 
1 1 .50*DADPP*PPL - DADVP*VWP/ 2.0) 


003047 

003047 


01031 

01033 

364* 

365* 


IF (I .NE. NETA) AM ( 2 , i NK ) = AM( 2 , INK) + bAbA*bLDA/C 10 
IF (I .EO. NETA) CALL LI AD (0, 2 . 1 , DLDA*DADA/C 10) 


003057 

003072 


01035 

01040 

366* 

367* 


DO 553 K = 2 f NSP 

INK « INK •+ NETA ANK 

8/83 

003107 

003115 


01041 

01042 

368* 

369* 


MINK = MINK + NETA ANK 

AF = (ACEB + DADPP*PPL )*(DCAPCK(K- 1 )/CAPC( I ) - 1 . 50*DRH0K(K- 1 ) / 

8/83 

003120 

003123 


01042 

01043 

370* 

371* 


1 RH0( I ) ) + DAD VP * VWP *bRHOK ( K - i )/RHO( I )/2.0 
AM(2 , MINK) = AM( 2 .MINK) + DLDA*DCAPCW(K )/CAPC( 1 )*( -ACEB/2. 0 - 1.50 


003123 

003140 


01043 

01044 

372* 

373* 


1 *DADPP*PPL - DADVP*VWP/2.0) 

IF (I .NE. NETA) AM(2.INK) = AM(2,INK) + DLDA*AF 


003140 

003151 


01046 

01046 

374* 

375* 

553 IF (I . EQ . NETA) CALL LI AD (K-1,2,1, DLDA*AF ) 

CALCULATE THE TURBULENT PRANDTL NUMBER 


003161 

003161 


01051 

01053 

376* 

377* 

555 

IF ( IPRT . NE . 1 ) GO TO 554 

AF = ACY*UTAU*RHO( I )/VMU( I )/CCEB/SALPH 


003203 

003205 


01054 

01055 

378* 

379* 


BF = ACY *UT AU*RHO ( I )/VMU( I ) *SQRT ( PR( I ) )/34.0/SALPH 
PRT = ELCON/TPCON* ( 1 .0 - EXP( -AF ) )/( 1 .0 - EXP(-BF)) 


003216 

003227 


01056* 

01057 

380* 

381* 

554 

TURPR( I )=PRt 
GO TO 703 


003253 

003255 


01057 

01060 

382* 

383* 

c ** * 
700 

** * **** ** ****** * * ** BECKWITH-BUSHNELL MODEL *********************** 
SQPI = 1.772453851 


003255 

003257 


01061 

01062 

384* 

385* 


ABECk=CBECk/RHb( I ) *VMU( I )/Uf AU 
ACY=ALPH*DEL*CAPY 


003260 

003266 


01063 

01064 

386* 

387* 


VA = OB*ACY/DELiA(IS) 

EPI = 5.0*ACY/DELTA( IS) - 3.90 


003273 

003277 


01065 

01066 

388* 

389* 


EXPA = EXP( -ACY/ABECK) 
AF = 1.0 - EXPA 


003304 

003313 


01067 

01070 

390* 

391* 


BF = TANH(VA) 

CRD = SORT (O. 50 - ERF ( EPI )/2 . 0) 


003315 

003321 


01071 

01072 

392* 

393* 


DL(I) = BBECK*DELTA( IS) *AF *BF*CRD ANK 

DRHOI = 1 . 50*DRH0H/RH0( I ) 

5/83 

003333 

003343 


01073 

01074 

394* 

395* 


EPS = EXP ( - EPI **2 ) 

DADA = BBECK*(DELTA(IS)/ABECK*BF*CRD*EXPA + DB*AF*CRD/COSH( VA ) * *2 


003347 

003356 


01074 

01075 

396* 

397* 


1 - 2 . 50/SOPI *AF*BF/CRD‘EPS) 

DLDA = -BBECK*DELTA( IS) *BF *CRD*ACY/ABECK* *2*EXPA 


003356 

003406 


01076 

398* 


DADPP = BBECK* ( AF *BF *CRD - bB*ACY/DELT A( I S ) * AF *CRb/COSH( VA ) * * 2 + 


003420 




01076 

399* 


1 2 . 50/SQPI *AF*BF/CRD*ACY/DELTA( IS)*EPS) 


003420 

01077 

400* 


DO 701 U=1 .NNLEQ 


003454 

01 102 

401* 

701 

AM(2.d) = DYA( <J ) *DADA + AM( 1 , d) *DADPP 


003454 

01104 

402* 


DADA = ABECK* ( CiO*C56*( -DCAPCti/CAPC( I ) + ORHOI) + I.O/ALPH) 


003462 

01 105 

403* 


AM (2 , 1 ) =AM( 2 , 1 )+DLDA*DADA 


003472 

01 106 

404* 


AM( 2,3) = AM ( 2 , 3 ) - OLDA* ABECK/ 2 . 0/F ( i , 3 )' 


003475 

01 107 

405* 


INK = 1+3 


003502 

01 1 10 

406* 


AM(2. INK) = AM(2, INK) + DLDA* ABECK*C 1 6 * ( DCAPCH/CAPC ( I ) - DRHOI ) 


003505 

01111 

407* 


INK = INK + NETA + 1 

ANK 8/83 

003513 

011 12 

408* 


MINK=MAT 1 J+2 


003517 

011 13 

409* 


DADA = ABECK* ( DCAPCH/ CAPC ( I ) - DRHOI) 


003522 

01114 

410* 


AM( 2 , MINK ) = AM( 2 , MINK ) - DLDA* ABECK *DCAPCW( 1 )/CAPC( 1 )/2 . O 


003525 

01 1 15 

41 1* 


IF (I .NE. NETA) AM(2,INK) = AM(2,INK) + DADA*DLDA 


003534 

01 1 17 

412* 


IF (I .EO. NETA) CALL LI AD (0,2. 1 , DADA*DLDA ) 


003547 

01121 

413* 


DO 708 K = 2 , NSP 


003560 

01124 

414* 


INK = INK + NETA 

ANK 8/83 

003566 

01125 

415* 


MINK = MINK + NETA 

ANK 8/83 

003572 

01 126 

416* 


DADA = ABECK* (DCAPCK(K- 1 )/CAPC( I ) - 1 . 50*DRH0K(K- 1 )/RHO( I ) ) 


003576 

01127 

417* 


AM( 2 , MINK) = AM( 2 , MINK ) - ABECK *DCAPCW( K ) *DLDA/CAPC( 1 )/2 . 0 


003606 

01130 

418* 


IF (I .NE. NETA) AM(2, INK) = AM(2, INK) + DADA*DLDA 


003616 

01132 

419* 

708 

IF (I .EO. NETA) CALL LI AD ( K- 1 , 2 , 1 , DADA*DLDA ) 


003626 

01 132 

420* 

C 

CEBECI -SMITH AND BECKWI TH-BUSHNELL MODELS 


003626 

01 135 

421* 

703 

DO 704 J = 1, NNLEQ 


003650 

01 140 

422* 

704 

AM ( 2 , J ) =AM( 2 , d )7C26/DE L 


003661 

01142 

423* 


EPI = DL ( I ) / RHO E(IS)/DEL 

ANK 5/83 

003665 

01 143 

424* 


AM( 2 , 1) = AM( 2 , 1 ) - C10*C56*DRH0H*EPI 


00367 1 

01 144 

425* 


INK= I +3 


003677 

01 145 

426* 


AM(2, INK) = AM (2 , INK) + C 10*DRH0H*EPI 


003702 

01 146 

427* 


INK= INK+ 1 


003710 

01 147 

428* 


DO 706 K = 1 , NSP 


003716 

01 152 

429* 


INK = INK + NETA 

ANK 8/83 

003716 

01153 

430* 


IF (I .NE. NETA) AM(2,INK) = AM(2,INK) + DRHOK(K- 1 )*EPI 


003723 

01155 

43 1* 

706 

IF (I .EQ. NETA) CALL LIAD ( K- 1 , 2 , 1 , DRH0K( K- 1 ) *EPI ) 


003733 

01 160 

432* 


DL( I ) = DL( I )/C26/DEL 

ANK 5/83 

003754 

01 161 

433* 


IF(I.EO.NETA) GO TO 406 


003761 

01 163 

434* 


INK=I 


003764 

01 164 

435* 


GO TO 525 


003766 

01164 

436* 

C 

CALCULATES EPS AND EPS DERIVATIVES 


003766 

01 164 

437* 

C 

CEBECI -SMITH AND BECKWITH-BUSHNELL MODELS 


003766 

01 165 

438* 

406 

IF( IWK.EQ. 1 ) GO TO 401 


003770 

01165 

439* 

C 

KENDALL TURBULENCE MODEL 


003770 

01167 

440* 

400 

DUM1 = DL( I )**2/ALPH**2*RED/C26 

ANK 5/83 

003773 

01170 

441 * 


EPS 1 = DUM1*ABS(F(I,3)) 


004003 

01 171 

442* 


IF ( CBECK .GT. 0.0 -OR. EPS 1 .LT. DVS/C26**2) GO TO 405 


004006 

01173 

443* 

401 

EPS = VINTR( I )*DVS/C26**2 


004027 

01174 

444* 


IWK = 1 


004035 

01175 

445* 


ENL( 3 ) = ENL( 1 )*VINTR(I )/C26**2 


004037 

01176 

446* 


DO 402 d=1 , NNLEQ 


00405 1 

01201 

447* 

402 

AM( 3 , d ) = AM( 1 ,d)*VINTR(I )/C26**2 


00405 1 

01203 

448* 


DUM 1 =2 . 0*EPS/RH0( I ) 


004055 

01204 

449* 


GO TO 415 


004061 

01204 

450* 

C 

BECKWITH-BUSHNELL MODEL 


00406 1 

01205 

451* 

405 

EPS=EPS1*VINTR(I ) 


004063 

01206 

452* 


ENL( 3 ) =0. 


004066 

01207 

453* 


DO 410 d=1 , NNLEQ 


004074 

01212 

454* 

4 10 

AM(3,d) = 2 . 0*AM( 2 , d ) *EPS/DL ( I ) 

ANK 5/83 

004074 

01214 

455* 


AM( 3 , 1 ) = AM( 3 , 1 ) -2 . 0/ ALPH*EPS 


004101 

01215 

456* 


CALL LIAD (-1,3, NETA+I -2 , SIGN) 1.0,F(I,3))*VINTR(I )*DUM1 ) 


004106 

01216 

457* 


DUM1 =EPS/RHO( I ) 


004126 

01217 

458* 

415 

DUM=DUM1*DRH0H 


004133 


] 




] 


J 


J 


J 


1 



W' ! 

1 

.] :i i ‘ i i i ■ i 

1 1 1 

! 1 

1 i 

01220 

459* 


EPSA(I)«=EPS 


004135 


01221 

460* 


AM( 3 , 1 )*AM( 3 1 1 )-C56*C10*DUM 


004140 


01222 

461* 


AM(3,I+3)= AM(3, I+3)+DUM*C10 


004145 


01223 

462* 


U-MAT 1 J+I+ 1 


004154 


01224 

463* 


L*MAT Id 


004160 


01225 

464* 


DO 420 K*NUL , NSPM1 


004167 


01230 

465* 


IF (I .LT. NETA) AM(3,d) = AM(3,d) + DUM 


004172 


01232 

466* 


IF (i .GE. NETA) CALL LI AD (K, 3.1. DUM) 


004202 


01234 

467* 


0 - J + NETA 

ANK 8/83 

004214 


01235 

468* 

420 

DUM=DUMi *bRHOk([K+ 1 ) 


004217 


01237 

469* 


DEPC=ENL(3) 


004224 


01240 

470* 


RETURN 


004226 


01240 

471* 

c**** 

MODIFIES ENL AND AM AFTER IMONE 


004226 


01241 

472* 

1004 

L 3 I - 1 


004232 


01242 

473* 


SALPH*-ALPH/TTVC 


004234 


01243 

474* 


IF(I-2) 656.656.600 


004237 


01243 

475* 

c**+* 

MODIFIES ENL AND AM AFTER I ONLY 


004237 


01246 

476* 

1005 

L - I 


004245 


01247 

477* 


SALPH* ALPH/TTVC 


004246 


01250 

478* 

600 

DUM « F( L , 3 )/SALPH 


004252 


01251 

479* 


ENL( 1+3 )*=ENL( 1+3) -DUM* ( EPS-DEPC ) 


004255 


01252 

480* 


AM( 1+3 , 1 )*AM( 1+3, i )- dum*eps/alph 


004263 


01253 

481* 


C28*=C28+DUM*EPS 


004271 


01254 

482* 


00 605 d-I.NNLEO 


004310 


01257 

483* 

605 

AM( 1+3 , d)“AM( 1+3 , J )+DUM*AM(3 , d) 


004310 


01261 

484* 


CALL LI AD (-1.1+3, L+NETA-2 . EPS/SALPH) 


004314 


01262 

485* 


MPd»MAT1d+I-1 


004331 


01263 

486* 


EPI - 1.6 - i.O/PRf 


004335 


01264 

487* 


DEL * - C13*F(L.2)*EPI/SALPH 


004342 


01265 

488* 


AF * G( L. 2 )7 ( SALPH *PRT ) 


004347 


01266 

489* 


CRD - DEL+EPS 


004354 


01267 

490* 


DEL “ DEL + AF 


004356 


01270 

491* 


BF - EPS/SALPH*( 1 .O/SCT - 1.0/PRT)*(HP - CPBAR(L)*TP) 


004360 


01271' 

492* 


ENL(MPd) - ENL(MPd) - AF*(EPS - DEPC) - BF - CRD 


004371 


01272 

493* 


C32 » C32 + AF»EPS + BF + CRD 


004401 


01273 

494* 


AM( MPd , 1 ) » AM(MPd.l) - AF/ALPH*EPS - 3.0/ALPH*CRD 


004407 


01274 

495* 


DO 610 d»1,NNLE0 


004434 


01277 

496* 

610 

AM(MPd.d) * AM(MPd.d) + DEL*AM( 3 , d) 


004434 


01301 

497* 


AM( MPd . L+3 ) « AM( MPd , L+3 ) - EPI *C 1 3/SALPH*EPS 


004440 


01302 

498* 


CALL LIAO (-1 .MPd.NETA+L-2.-EPI«Ci0/SALPH»EPS) 


004447 


01303 

499* 


CALL LIAD (O.MPd, L , EPS/ ( SALPH*PRT ) ) 


004466 


01304 

500* 


IF (NSPM1 .LE. 0) GO TO 650 


004501 


01306 

501* 


DO 630 K « 1.NSPM1 


004504 


01311 

502* 


DUM - SP( L, 2 , K )/( SALPH*SCT ) 


004520 


01312 

503* 


MPd » MPd + NETA - 1 

ANK 8/83 

004526 


01313 

504* 


CK6 ( K ) =*CK6 ( K ) +DUM* EPS 


004534 


01314 

505* 


ENL(MPd)»ENL(MPd) -DUM* (EPS-DEPC) 


004537 


01315"' 

506* 


AM(MPv). i )*AM{mpJ. 1 )-bUM7ALPH*EPS 


004544 


01316 

507* 


DO 620 U-1.NNLE0 


004556 


01321 

508* 

620 

AM (MPd . d ) « AM( MPd . d )+DUM*AM( 3 . d ) 


004556 


01323 

509* 

630 

CALL LIAD (K, MPd, L , EPS/ ( SALPH*SCT ) ) 


004562 


01325 

510* 

650 

RETURN 

Afsik 4/83 

004600 


01326 

511 * 


END 


004636 



END OF COMPILATION: 


NO DIAGNOSTICS- 
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